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Preface 



This publication is a reference manual that provides 
specific information about the use of the IBM 5100 
Portable Computer, the APL language, and installation 
planning and procedures. It also provides information 
about forms insertion and ribbon replacement for the 
5103 printer. This publication is intended for users of 
the 5100 and the APL language. 
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Chapter 1. Operation 




IBM 5100 PORTABLE COMPUTER OVERVIEW 

The 5100 (Figure 1) is a portable computer. The 5100 has a display screen, key- 
board, a tape unit, switches, indicator lights, and an adapter for black and white 
TV monitors. The display screen and indicator lights communicate information 
to the user. The keyboard and switches allow the user to control the operations 
the system will perform. Figure 2 shows the 5100 console. 

Features available for the 5100 are an auxiliary tape unit, a printer, and a com- 
munications adapter. 



DISPLAY SCREEN 

The display screen (Figure 3) can display 16 lines of information at a time, with 
up to 64 characters in each line. Input (information supplied by the user) as well 
as output (processed information) is displayed. The bottom two lines (lines 1 and 
0) of the display contain information entered from the keyboard. The cursor 
(flashing horizontal line) indicates where the next input from the keyboard will 
be displayed. If the cursor is moved to a position that already contains a charac- 
ter, the flashing line is replaced by the flashing character. As the 5100 processes 

input, all lines of the display are moved up so that information can be entered on 
the two bottom lines again. The top lines of the display are lost as the lines are 
moved off of the display screen. 



Display 
Screen 



Switches 



ndicator Lights 



Switches Adapter for Black and 
White TV Monitors 




Keyboard 



Figure 1. IBM 5100 Portable Computer 
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Figure 2. The 5100 Console 
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Normally, to distinguish input from output, input from the keyboard is indented 
and output is displayed starting at the left edge of the display screen. 



Figure 3. The 5100 Display Screen 



SWITCHES 
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The switches on the 5100 console (Figure 2) are used for turning power on, re- 
starting the system, and controlling how information is displayed. 



Power On or Restart Procedures 

The following switches are used when turning power on to the system or re- 
starting the system operation. 



BASIC/APL 



Only dual-language machines have this switch. The switch setting determines which 
language will be in operation when power is turned on or after RESTART is 
pressed. If the switch setting is changed after power is turned on or after RESTART 
is pressed, the language in operation will not be changed. 



Power ON/OFF 

When this switch is in the ON position, power is supplied to the system. The 
system performs internal checks and becomes ready in 15-20 seconds. When the 
switch is put in the OFF position, no power is supplied to the system. 



^ 



Note: The message CLEAR WS is displayed when the system becomes ready. If 
this message is not displayed after 20 seconds, restart the system operation (the 
RESTART switch is discussed next). 



RESTART 



This switch restarts the system operation. When it is pressed, the system performs 
internal checks and becomes ready in 15-20 seconds. The message CLEAR WS is 
displayed when the system is ready. If the system does not display the message 
after 20 seconds, press RESTART again. If the system does not become ready 
after several attempts, call your service representative. 

The primary uses of this switch are to restart the system operation after a system 
malfunction has occurred and to change the language in operation on dual- 
language machines. 

Note: Any information you had stored in the active workspace (see Chapter 2) 
will be lost when RESTART is pressed. 



Display Screen Control 

The following switches are used to control how the information on the display 
screen is displayed. 



L32 64 R32 

This three-position switch (positions 64, L32, and R32) operates as follows: 

• 64 — Characters are displayed in adjacent positions, and up to 64 characters 
can be shown on each line. 

• L32 - Characters are displayed in alternate positions (blanks between); only 
the left 32 characters of the 64-character lines are shown. 

• R32 — Characters are displayed in alternate positions (blanks between); only 
the right 32 characters of the 64-character lines are shown. 

REVERSE DISPLAY 

This switch determines whether the display screen will display light characters 
on a dark background or dark characters on a light background. The brightness 
control may have to be adjusted when the switch setting is changed. 

DISPLAY REGISTERS 

This switch is for the service representative's use when servicing your 5100. 
Note: When you use your 5100, this switch must be in the NORMAL position. 





KEYBOARD 



The 5100 keyboard (Figure 2) has alphameric and numeric keys. The alphameric 
keys are grouped together and are similar to those on a typewriter keyboard. 
When the keys are pressed, the characters entered appear in the input line (one 
of the bottom two lines) on the display screen. If either shift key is pressed and 
held, the upper symbol on the key pressed is entered. The top row of alphameric 
keys can be used to enter numbers; however, numbers can be conveniently en- 
tered using the numeric keys on the right side of the keyboard. The arithmetic 
symbols (+-■*■ x) located on the top row of the alphameric keyboard can also 
be entered using keys to the right of the numeric keys. 

The keyboard contains some keys that perform operations in addition to those 
performed by a typewriter. These keys are discussed in the following text. Uses 
of the APL language symbols on the keyboard are discussed in the APL language 
chapter (Chapter 4) of this manual. 



Attention 



Pressing ATTN (attention) when entering information from the keyboard erases 
everything from the cursor to the end of line 0. 

Pressing ATTN during execution of any expression or user-defined function stops 
system operation at the end of the statement currently being processed. To re- 
start the execution of a user-defined function, enter ->[]l_C. 

Output that was being generated before the system operation stopped may not be 
displayed because there is a delay between the execution of the statement that 
causes the output and the actual display of the output. 

When ATTN is pressed twice during the execution of a statement (either inside 
or outside a user-defined function), the execution of that statement stops im- 
mediately. Also, the message INTERRUPT, the statement, and a caret (a) that 
indicates where the statement was interrupted are displayed. 



Hold 



When pressed once, HOLD causes all processing to stop; when pressed again, it 
allows processing to resume. The primary purpose of HOLD is to permit reading 
the display information during an output operation, when the display is changing 
rapidly. When the hold is in effect (HOLD pressed once), only the COPY DISPLAY 
key is active. 

Notes; 

1. Holding down the CMD key and pressing HOLD is restricted to use by the 
service personnel. 

2. When the hold is in effect (HOLD pressed once), the use of the arithmetic 
keys (+ - -r x) on the right side of the keyboard are restricted to use by 
service personnel. 
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Execute 









When this key is pressed, the input line of information on the display screen is 
processed by the system. This key must be pressed for any input to be processed. 



Command 






When this key is pressed and held, pressing an alphameric key in the top row 
causes the APL command keyword or character above that key to be entered 
in the input line. The command keywords are: )LOAD, )SAVE, )CONT, )LIB„ 
)FNS, )VARS, )COPY, )WSID, )OUTSEL, and )REWIND. 

Note: Holding down the CMD key and pressing HOLD is restricted to use by the 
service personnel. 



Positioning the Cursor and Information on the Display Screen 

The following keys are used to position the cursor and information on the display 
screen: 



Forward Space 



When this key is pressed once, the cursor moves one position to the right. When 
this key is held down, the cursor continues to move to the right. When the cursor 
reaches the last position on one input line (line 1 or 0), it wraps around to the 
first position on the other input line. 



Insert 










When the CMD key is held down and the forward space key is pressed once, the 
characters at and to the right of the cursor position (flashing character) are moved 
to the right one position, and a blank character is inserted at the cursor position. 
The cursor does not move. For example: 



o 



F 



■Flashing character 



Before the insert operation: 123567 

After the insert operation: 123_J_567 

When these keys are both held down, the characters continue to move to the 
right and blank characters continue to be inserted. 

Note: If there is a character in position 64 of line 0, the insert operation will 
not work. 



Backspace 



When this key is pressed once, the cursor moves one position to the left. When 
it is held down, the cursor continues to move to the left. When the cursor reaches 
position 1 on one input line (line 1 or 0), it wraps around to the last position on 
the other input line. 



Delete 



B 



When the CMD key is held down and the backspace key is pressed once, the 
character at the cursor position (flashing character) is deleted and all characters 
to the right are moved over one position to the left to close up the space. The 
cursor is not moved. For example: 



Before the delete operation: 1 234406, 
After the delete operation: 123456 




Flashing character 



When these keys are both held down, the characters at the cursor position con- 
tinue to be deleted and all the characters to the right are moved to the left. 



Scroll Up 



This key (located above the numeric keys) can be used only in execution mode. 
When this key is pressed once, each displayed line is moved up to the next line. 
As the lines are moved up, the top line is lost as it is moved off the display screen. 
When this key is held down, the lines continue to move up. 




Scroll Down 



This key (located above the numeric keys) can be used only in execution mode. 
When the key is pressed once, each displayed line is moved to the next lower line. 
As the lines are moved down, the bottom line is lost as it is moved off the display 
screen. When this key is held down, the lines continue to move down. 



Copy Display 



m 



If there is a 5103 Printer, when the CMD key is held down and this key is pressed 
once, all the information presently on the display screen is printed. COPY 
DISPLAY is operational even when the system is in the hold state (the HOLD 
key has been pressed once). 

Note: The L32 64 R32 switch has no effect on what will be printed. 



INDICATOR LIGHTS 

The 5100 console (Figure 2) has the following indicator lights: 

Process Check 

When on, this light indicates that a system malfunction has occurred. In this case, 
press the RESTART switch to restart the system operation. If the system opera- 
tion cannot be successfully restarted after several attempts, call your service repre- 
sentative. 




In Process 



When the system is processing input, generally the display screen is blank and the 
IN PROCESS light is on. After the input is processed, the light goes off, the out- 
put and flashing cursor are displayed, and the system waits for input. 

Notes: 

1. For some expressions or user-defined functions (see Chapter 5), output is 
generated before the expression or function has completed execution. In such 
cases, even though the system is still processing data, the IN PROCESS light 
goes off and the output is displayed. The flashing cursor is again displayed 
wheh the system has finished processing the input (the expression or function 
has Completed execution). 

2. If tile display screen is blank and the IN PROCESS light is off, check the 
brightness control before calling your service representative. 
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Chapter 2. System Commands 



SYSTEM OVERVIEW 

The 5100 contains an active workspace, which is the part of internal storage where 
the user's data and user-defined functions (programs) are stored. When the power 
is turned off or the RESTART switch is pressed on the 5100, all the data in the 
active workspace is lost. However, the contents of the active workspace can be 
saved on tape (stored workspace) and then read back into the active workspace 
for use at a later time (see System Command Descriptions in this chapter). The 
contents of the active workspace then exist in both the active workspace and on 
tape. 

The tape is your library; that is, it is a place where you can store data for later 
use. Before a tape can be used, it must be formatted. A formatted tape contains 
one or more files where data can be stored. Each file has a file header, which con- 
tains information about the file. See the )LIB system command in this chapter 
for a description of the file header. 

The system commands, which are used to control and provide information about 
the system, are discussed next. 



SYSTEM COMMAND DESCRIPTIONS 

The following list shows how system commands are used to control and provide 
information about the various parts of the system. Each system command is 
described in detail later in this chapter. 



Commands that Control the Active Workspace 



Command Meaning 

)CLEAR Clear the active workspace. 

(COPY Copy stored objects (see note 1) into the active workspace. 

) ERASE Erase global objects (see note 1) from the active workspace. 

) LOAD Replace the active workspace with a stored workspace. 

)PCOPY Copy stored objects (see note 1) into the active workspace and pro- 
tect objects in the active workspace from being destroyed. 

(SYMBOLS Change the number of symbols allowed in the active workspace. 

)WSID Change the active workspace ID. 
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Commands that Control the Library (Tape) 

Command Meaning 

(CONTINUE Write the contents of the active workspace on tape. The active 

workspace can contain suspended functions. 

(DROP Drop a file from the tape. 

(MARK Format the tape. 

)SAVE Write the contents of the active workspace on tape. The active 

workspace cannot contain suspended functions. 

Commands that Provide Information About the System 

Command Meaning 

(FNS Display the names of the user-defined functions. 

)LIB Display workspace file headers. 

)SI Display the state indicator. 

)SIV Display the state indicator and local names. 

(SYMBOLS Display the number of symbols allowed in the active workspace. 

)VARS Display the names of the global variables. 

)WSID Display the active workspace ID. 



Other Commands that Control the System 



Command 

)MODE 

)OUTS|L 

(PATCH 

(REWIND 



Meaning 

Place the 5100 in communications mode. 

Select printer output. 

Apply IMFs (internal machine fix) to the system or recover 
data after a tape error. 

Rewind the tape. 



Notes: 

1 . Objects refers to both user-defined functions and variables. 

2. The System commands (CONTINUE, )COPY, )PCOPY, )DROP, (LOAD, (MARK, 
(REWIND, and (SAVE will blank the top 8 or 9 lines on the display screen when 
they are used. 
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All system commands (and only system commands) have as their first character 
a right parenthesis. Each system command must begin on a new line. Para- 
meters (required or optional information) for the system commands must be 
separated by blanks. System commands cannot be used within APL instructions 
and cannot be used as part of a function definition (function definition is dis- 
cussed in Chapter 6). 

System commands can be entered two ways: 

1. The system command can be entered one character at a time from the 
keyboard. 

2. The system commands )LOAD, )SAVE, )CONT, )LIB, )FNS, )VARS, )COPY, 
)WSID, )OUTSEL and )REWIND can be entered in one operation by holding 
the CMD key while pressing the top-row key just below the label of the 
command you want. 

The parameters, if required, must be entered and the EXECUTE key pressed before 
any operation will take place. Following is an explanation of terms and symbols 
used as parameters for system commands: 

• Device/file number specifies the tape unit and file to be used. The built-in tape 
unit is tape unit 1 and the auxiliary tape unit is tape unit 2. If the value speci- 
fied is less than four digits, tape unit 1 is assumed and the value specified re- 
presents only the file number. If the value specified is four digits, the right- 
most three digits specify the file number and the leftmost digit specifies the 
tape unit. For example: 

Device/File Number Meaning 

1 Tape 1, file 1 

02 Tape 1, file 2 

2002 Tape 2, file 2 

• Workspace ID is any combination of up to 11 alphabetic or numeric characters 
(with no blanks); however, the first character must be alphabetic. If more than 
11 characters are entered, only the first 11 are used. 

• Password is any combination of up to eight alphabetic or numeric characters 
(with no blanks). If more than eight characters are entered, only the first 
eight are used. 

• Object is a user-defined function or variable name. 

• Parameters enclosed in brackets can be optional in certain cases. 
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The )CLEAR Command 

The (CLEAR command clears the active workspace and closes all open files. A ) 

cleared workspace has no valid name, contains no user-defined variables or functions, 
and no data. The workspace attributes are set to: 




Index origin 


- 1 


Workspace identification 


- CLEAR WS 


Comparison tolerance 


- 1E~13 


Printing width 


- 64 


Printing precision 


- 5 


Random number seed 


- 16807 


Data printed 


- ALL 



When the command is successfully completed, CLEAR WS is displayed. 

Syntax 

(CLEAR 
There are no parameters. 



The )COIMTlNUE Command 

The (CONTINUE command writes the contents of the active workspace onto 
tape without changing the contents of the active workspace. This command is 
primarily used when the entire stored workspace is to be loaded back into the 
active workspace. Workspaces are stored and loaded back into the active work- 
space faster using the (CONTINUE command than using the (SAVE command. 
When the command is successfully completed, CONTINUED device/file number 
workspace ID is displayed. 

Notes: 

1. A cl^ar workspace cannot be written on tape. 

2. A workspace with suspended functions can only be written on tape using the 
(CONTINUE command (it cannot be written to tape using the (SAVE com- 
mand). 

3. (COPY and (PCOPY commands cannot specify stored workspaces that were 
written on tape using the (CONTINUE command. 

4. A stored workspace written to tape using the (CONTINUE command cannot be 
loaded into a 5100 active workspace that is smaller than the original active 
workspace. 

5. If a stored workspace that was written to tape using the (CONTINUE command 
is loaded into another 5100 with a larger active workspace, the workspace 
available (see the QWA system variable in Chapter 5) is the same as when the 
workspace was written to tape. 

6. If ATTN is pressed during a (CONTINUE operation, the system operation is 
interrupted and the file is set to unused. 
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Syntax 

(CONTINUE [ device/file number l [ workspace ID ] [: password ] 

where: 

device/file number (optional) is the number of the tape unit and file on the 
tape where the contents of the active workspace are to be written. If no de- 
vice/file number is specified, the device/file number from which the active 
workspace was loaded or specified by a previous )WSID command is used. 

workspace ID (optional) is the name of the workspace to be stored. This 
name must match the workspace ID of both the active workspace and the 
file to be used on the tape, unless the file is marked unused. If the file is 
marked unused, the active workspace ID and tape file workspace ID are changed 
to this workspace ID. If no name is specified in the command, the name of 
the active workspace is used. 

: password (optional) is any combination of up to eight alphabetic or numeric 
characters (without blanks), preceded by a colon. This sequence of characters 
must be matched when the stored workspace is to be read back into the active 
workspace. If no workspace ID or password is entered, the password associa- 
ted with the active workspace (if any) is assigned to the workspace being 
stored. If just the workspace ID and no password is entered, any password associated 
with the active workspace is not used. 

The )COPY Command 

The )COPY command copies all or specified global objects from a stored work- 
space to the active workspace. Only objects in stored workspaces that were 
written on tape with the (SAVE command can be copied. When the command 
is successfully completed, COPIED device/file number workspace ID is displayed. 

Notes: 

1. If the active workspace contains suspended functions, objects cannot be copied 
into it. 

2. If the ATTN key is pressed during a )COPY operation, the system operation is 
interrupted and the amount of information copied into the active workspace 

is unpredictable. 



Syntax 



)COPY device/file number workspace ID password f object name(s) 1 
where: 



f ) device/file number is the number of the tape unit and workspace file the ob- 

jects are copied from. 

workspace ID is the name of the stored workspace on tape. 
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: password is the security password assigned by a previous )WSID or )SAVE 
command. If no password was assigned previously, a password cannot be 
specified by this command. 

object name(s) (optional) is the name of the global object(s) to be copied from 
the designated stored workspace. If this parameter is omitted, all global ob- 
jects in the designated stored workspace are copied. 



The )DROp Command 

The )DROP command marks a specified file unused. After the file has been 
marked unused, the data in the file can no longer be read from the tape. When 
the command is successfully completed, DROPPED device/file number file ID is 
displayed. 



Syntax 

)DROP device/file number [ file ID ] 

where: 

device/file number is the number of the tape unit and the file on the tape. 

file ID (optional) is the name of the stored workspace file to be marked unused. 
If the file number specified is a data file, any file ID specified is ignored. 

The )ERASE Command 

The )filRASE command erases the named global objects from the active work- 
space. There is no message displayed at the successful completion of the com- 
mand. 

Notes: 

1. Whfen a pendent function (see Chapter 7) is erased, the response SI DAMAGE 
is ijsued. 

2. If tjhe object being erased is a shared variable (see Chapter 8), the shared vari- 
able will be retracted. 

3. Even after the object is erased, the name remains in the symbol table (the 
part of the active workspace that contains all the symbols used). 

Syntax 

(ERASE object name(s) 
where: 

object name(s) are global names separated by blanks. 
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The )FNS Command 

The )FNS command displays the names of all global user-defined functions in the 
active workspace. The functions are listed alphabetically. If the character para- 
meter is specified, the names are displayed beginning with the specified character 
or character sequence. 

Note: You can interrupt the )FNS command by pressing the ATTN key. 

Syntax 

)FNS f character(s) 1 

where: 

character(s) (optional) is any sequence of alphabetic and numeric characters 
that starts with an alphabetic character and contains no blanks. This sequence 
of characters determines the starting point for an alphabetic listing. 

The )LIB Command 

The )LIB command displays the file headers of the files on tape (library). The 
file header contains the following information: 

• File number. The files on tape are numbered sequentially, starting with 1. 

• File ID. The file ID can be from 1 to 17 characters. If the file contains a 
stored workspace, the file ID is the same as the stored workspace ID. 

• File type. The file type is a 2-digit code; the following chart gives the mean- 
ing of each code: 



File Type 


Description 


00 


Unused file 


01 


Interchange data file (see Chapter 8) 


02 


General interchange data file (see Chapter 8) 


03 


BASIC source file 


04 


BASIC workspace file 


05 


BASIC keys file 


06 


APL continued file (see )CONTINUE comme 



chapter) 
07 APL saved file (see (SAVE command in this chapter) 
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File Type Description 

08 APL internal data format file (see Chapter 8) 

1^3 Patch and tape recovery file 

17 Diagnostic file 

19 IMF file 

72 Storage dump file 

• Size of the file. The files are formatted in increments of 1024-byte blocks of 
storage. 

• Number of unused contiguous 1024-byte blocks of storage in the file. 

• Number of defective records (512-byte blocks) in the file; an asterisk (*) is 
displayed if there are more than nine defective records. 

Note: This value can indicate when you should relocate a file to avoid loss of 
data due to defective areas on the tape. 



Following is an example of a file header: 



06 FILE6 



07 010,001 



File type. 



Size of the file. 



Available storage. 



Number of defective records. 
.File ID 
-File number 



The )LIB command operation can be interrupted by pressing the ATTN key. 

Syntax 

)LIB [device/file number] 
where: 

device/file number (optional) is the number of the tape unit and the starting 
file number. All file headers from that file to the end of the tape are displayed. 
If no entry is made, the display begins with the first file following the file you 
are currently positioned at on tape unit 1. For tape unit 2, the entry 2000 will 
display the file headers beginning with the first file following the file you are 
currently positioned at on tape unit 2. 
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The )LOAD Command 



The ) LOAD command loads the contents of a stored workspace from the tape 
into the active workspace, completely replacing the contents that were in the 
active workspace. When the command is successfully completed, LOADED 
device/file number workspace ID is displayed. 

Note: If the ATTN key is pressed during a load operation, the system operation 
is interrupted and the active workspace is cleared. 



Syntax 

)LOAD device/file number workspace ID : password 
where: 




device/file number is the number of the tape unit and the number of the file 
on the tape. 

workspace ID is the name of the stored workspace. 

: password is the security password assigned to the stored workspace by a pre- 
vious )WSID, )CONTINUE, or (SAVE command. If no password was pre- 
viously assigned, a password cannot be specified. If a password was assigned 
to the stored workspace but is not specified, or if it is incorrectly specified 
for this command, the error message WS LOCKED is displayed. 



The )MARK Command 

The (MARK command formats the tape so that the active workspace or data 
can be saved on it. Each (MARK command formats a certain number of files 
to a specified size. Additional files of different sizes can be formatted by using 
additional )MARK commands. 

When the operation is successfully completed, MARKED 

number of the last file marked size of the last file marked is displayed. 



Notes: 

1. The ATTN key is not operative during the (MARK command operation. 

2. If the message ALREADY MARKED is displayed after a )MARK command 
was issued, the specified file already exists on the tape. To re-mark the 
specified file, enter GO. If the file is not to be re-marked, press EXECUTE 
to continue. 



CAUTION 

If an existing file on tape is re-marked, the original information in the re-marked 
file and the existing files following the re-marked file cannot be used again. 
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Syntax 

)MARK size number of files to mark starting file number [ device ] 

where: 

size is an integer specifying the size of each file in 1024-byte (1K) blocks of 
storage. 

The following formulas can be used to determine what size a file should be 
marked. The formula for a workspace file (the contents of the active workspace 
written to tape with a (SAVE or (CONTINUE command) is 
MAXSIZE= 3+r (CLEAR-ACTIVEH-1024, where: 

• MAXSIZE is the maximum amount of tape storage (number of 1024-byte 
blocks) that would be required to write the contents of the active workspace 
to tape. 

• CLEAR is the value of QWA (see Chapter 5) in a clear workspace. 

• ACTIVE is the value of QWA just before the contents of the active workspace 
are written to tape. 

The formula for a data file (data written to tape using an APL shared variable 
—see Chapter 8) when all of the data is contained in the active workspace is 
MAXSIZE= T (WITHOUT-WITHK 1024, where: 

• MAXSIZE is the maximum amount of tape storage (number of 1024-byte 
blocks) required to write the data to tape. 

• WITH is the value of QWA (see Chapter 5) with the data in the active work- 
space. 

• WITHOUT is the value of QWA before any data to be written to tape was 
stored in the active workspace. 

There is no formula for determining what size to mark a data file when the data 
is written to tape as it is entered from the keyboard. The amount of tape storage 
required depends upon how much data is entered from the keyboard and what 
type of data is used. For information on how many bytes of storage are required 
by the various types of data, see Storage Considerations in Chapter 9. 

number of files to mark is an integer specifying the number of files of the 
specified size to format. 

starting file number is an integer specifying the file number where formatting 
is to start. 

device (optional) specifies the tape unit that contains the tape to be formatted. 
An entry of 1 specifies tape unit 1 and 2 specifies tape unit 2. If no entry is 
made, tape unit 1 is assumed. 
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To format a tape for four 12K files, two 16K files, and three 10K files, the 
following commands are required: 



)MARK 12 4 
(MARK 16 2 
)MARK 10 3 




Starting file number 



The )MODE Command 

The )MODE command is used to load the 5100 communications program from a 
tape mounted in tape drive 1 and to place the system in communications mode 
(see IBM 5100 Communications Reference Manual, SA21-9215). When the system 
is in communications mode, APL is no longer available. 



Syntax 



(MODE COM 



The )OUTSEL Command 

The )OUTSEL command specifies which data on the display will go to the printer. 

Syntax 

)OUTSEL [ option! 
where: 

option is one of the following: 

• When ALL is specified, all subsequent information that is displayed will be 
printed. 

• When OUT is specified, only the output is sent to the printer; input is dis- 
played, but it does not go to the printer. 

• When OFF is specified, none of the information displayed is printed, unless 
it is assigned to an APL shared variable used by the printer (see Chapter 7). 

If no parameter is specified, ALL is assumed. After a )LOAD or )CLEAR com- 
mand or when the machine is first turned on, the ALL option is active. 



v_--- 
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The ) PATCH Command 

The following is a list of the uses of this command. This command is used in con- 
junction with specially devised programs on a tape cartridge supplied with the 5100. 
The uses are described in detail, following the list: 

• Copy IMFs (internal machine fix), the Copy IMF program, and the Load IMF 
program onto another tape cartridge. 

• Load IMFs for the system program into the active workspace, then make the APL 
language available again. 

• Display the EC version of each interpreter module. 

Recover data on tape when tape read errors (ERROR 007 ddd-see Chapter 1 1 ) 
occur during use of one of the following files: 

1. Interchange (file type 01) 

2. General interchange (file type 02) 

3. BASIC source (file type 03) 

4. APL internal data format (file type 08) 

• Copy the contents of one tape cartridge to another tape cartridge. 
The supplied tape cartridge contains the following files: 

• File 1. The programs that copy or load IMFs and the program that displays 
interpreter module EC versions. 

• File 2. The IMFs for the 5100. 

• File 3. The Tape Recovery program. 

• File 4. The Tape Copy program. 

• File 5. APL aids. This is a saved workspace file (WSID=APLAIDS) that con- 
tains the following four functions: 

1. A ATRACE— Traces all the statements in a specified user-defined function. 

2. A ATRACEALL— Traces the first executable statement of each user- 
defined function currently in the active workspace. 

3. A ATRACEOFF-Turns off all tracing. 

4. AASHAR ED— Displays the shared variable names currently in the active 
workspace. 

The A ATRACE function requires as its right argument the name of the user- 
defined function to be traced enclosed in single quotes. The other functions 
do not require any arguments. 
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This workspace file also contains the following five variables that describe the func- 
tions in the workspace: 

1. DESCRIBE 

2. DESCRIBEAATRACE 

3. DESCRIBEAATRACEALL 

4. DESCRIBEAATRACEOFF 

• 5. DESCRIBEAASHARED 

These functions and variables can be copied into the active workspace using the 
)COPY command. For example, to copy the A ATRACE function into the active 
workspace: 

)C0PY S APLAIDS A&TRACE 

Note: The (PATCH command is not required for using the functions in file 5. 

When the ) PATCH command is used with the tape cartridge inserted in tape drive 1, 
the following options are displayed: 

ENTER OPTION NO. 



1. 


COPY IMF TAPE 




2. 


LOAD IMF'S 




3. 


DISPEC VER. 




4. 


KEY-ENTER IMF 




5. 


END OF JOB 




6. 


TAPE RECOVERY 




7. 


TAPE COPY PGM 


— Flashing Cursor 


v 







22.1 




22.2 



To select an option, enter an option number (1 through 7). If an option number 
other than those displayed is entered, the options will be displayed again. Once 

( the option number has been entered, additional prompting messages might be dis- 

v ~~ played for the selected option. 



Option 1. Copy IMF Tape 

The Copy IMF Tape option allows the following files to be copied from the tape: 

• File 1, which contains the Copy IMF program, Load IMF program, and Display 
EC Version program. 

• File 2, which contains the IMFs for the 5100. The IMFs can be copied from the 
file as follows: 

1. Copy all IMFs that apply to APL. 

2. Copy all IMFs for APL that apply to the 5100 being used. 

3. Copy specific IMFs by problem number. 

4. Copy specified IMFs by problem numbers that apply to the 5100 being 
used. (If a problem number is specified that does not apply to the 5100 
being used, it is not copied.) 

Note: The tape onto which files 1 and 2 are to be copied must be marked before 
the copy operation is done. Use the )LIB command to determine what size the 
files should be marked. 

The Copy IMF Tape program will issue prompting messages and wait for the user 
to respond to each message. 

Copying IMFs allows tape cartridges containing only the IMFs that apply to your 
5100 to be created. 



Option 2. Load IMFs 

The Load IMFs option allows IMFs to be loaded into the system program and then 
makes the APL language available again. IMFs can be loaded as follows: 

• Load all IMFs that apply to the 5100 being used. 

• Load specified IMFs by problem numbers that apply to the 5100 being used. 
(If a problem number is specified that does not apply to the 5100 being used, it 
is not loaded.) 

The Load IMFs program will issue prompting messages and wait for the user to respond 
to each message. 

Note: The IMFs occupy storage (space) in the active workspace and can also reduce 
the performance of your 5100 significantly; therefore, IMFs should not be applied 
to your 5100 if the problem does not affect your operation or if the problem can be 
circumvented by an APL statement or command. The IMFs will remain in the active 
workspace until the power is turned off or RESTART is pressed. 
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Option 3. DispECVer. 

The Disp EC Ver. option is primarily for your service representative's use. This 
option will display a 4-digit code for each interpreter module. The first two digits 
are the module identification and the next two digits are the EC version. 

The EC Version program will issue prompting messages and wait for the user to 
respond to each message. 



Option 4. Key-Enter IMF 

This option allows the service representative to enter IMFs from the keyboard. The 
IMF is then written to file 2 on the tape containing the IMFs. The IMF can then be 
loaded or copied from the tape. 



Option 5. End of Job 

This option causes the APL language to be available again. 

Option 6. Tape Recovery 

The Tape Recovery option allows the user to recover data from a file or files on 
which tape read errors (ERROR 007 ddd) are occurring. The Tape Recovery Pro- 
gram (ian be used on the following files: 

• Interchange (file type 01) 

• General interchange (file type 02) 

• BASIC source (file type 03) 

• APL internal data format (file type 08) 

The Tape Recovery program will issue prompting messages and wait for the user to 
respond to each message. 

The Tape Recovery program will recover as much data as possible in the file; some of 
the data in the record where the tape read errors occur is not recoverable; some of 
the data that precedes and follows that record may also not be recoverable. 
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Option 7. Tape Copy Program 

The Tape Copy option allows you to copy the contents (up to the end of marked 
tape) of one cartridge to another cartridge. Tape copy can utilize the auxiliary tape 
drive, if available. Tape copy also marks the tape being copied to. 

Tape copy issues prompts and waits for you to respond to each prompt. 

Syntax 

(PATCH 
There are no parameters. 

The )PCOPY Command 

The )PCOPY command copies all or specified global objects from a stored work- 
space into the active workspace. It is the same as the (COPY command, except 
that if the object name already exists in the active workspace, it is not copied from 
a stored workspace. Therefore, the object in the active workspace is protected 
from being overlaid and destroyed. Only objects in stored workspaces that were 
written on tape with the )SAVE command can be copied. 

When the command is successfully completed, COPIED device/file number 
workspace ID is displayed. 

Notes: 

1. If the active workspace contains suspended functions, objects cannot be copied 
into it. 

2. If the ATTN key is pressed during a )PCOPY operation, the system operation is 
interrupted and the amount of information copied into the active workspace is 
unpredictable. 

3. If the specified object name already exists in the active workspace, the message 
NOT COPIED: obiect name is also displayed. 
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Syntax 

)PCOPY device/file number workspace ID : password [ object name( s)l 

where: 

device/file number is the number of the tape unit and the stored workspace file. 

workspace ID is the name of the stored workspace on the tape. 

: password is the security password assigned by the previous )WSID or )SAVE 
command. If no password was assigned, a password cannot be specified by 
this command. 

object name( s) (optional) is the name of the global object(s) to be copied from 
the designated stored workspace. If omitted, all global objects in the designated 
stored workspace are copied, except those already in the active workspace (if 
any). 



The )REW(ND Command 

The )REWIND command rewinds the specified tape. There is no message displayed 
at the successful completion of this command. 



Syntax 

) REWIND [ device number ] 

where: 

devjce number (optional) is the tape (on drive 1 or 2) to be rewound. If the para- 
meter is omitted, tape 1 is rewound. 

The )SAVE Command 

The )SAVE command writes the contents of the active workspace onto tape with- 
out changing the contents of the active workspace. This command is used when 
objects will be copied from the stored workspace back into the active workspace. 
When this command is successfully completed, SAVED device/file number 
workspace ID is displayed. 

Notes: 

1. A clear workspace or a workspace with suspended function cannot be written on 
tape using the )SAVE command; however, a workspace with suspended functions 
can be written to tape using the (CONTINUE command. 

2. The )COPY and )PCOPY commands can specify stored workspaces that were 
written on tape only if the )SAVE command was used. 

3. Depending on the amount of data in the stored workspace, a stored workspace 
that was written to tape using the (SAVE command can be loaded into another 
5100 with a smaller active workspace. 

4. If ATTN is pressed during a )SAVE operation, the system operation is interrupted 
and the file is set to unused. 



D 
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Syntax 

; )SAVE [ device/file number l [ workspace ID 1 [ :password1 

where: 

device/file number (optional) is the number of the tape unit and file on the 
tape where the contents of the active workspace are to be written. If no 
! device/file number is specified, the device/file number from which the active 

workspace was loaded or which was specified by a previous )WSID command 
is used. 

workspace ID (optional) is the name of the workspace to be stored. This 
name must match the workspace ID of both the active workspace and the file 
\ to be used on the tape unless the file is marked unused. If the file is marked 

unused, the active workspace and tape file workspace ID will be changed to 
this workspace ID. If no name is specified in the command, the name of the 
active workspace is used. 

: password (optional) is any combination of up to eight alphabetic or numeric 
characters (without blanks), preceded by a colon. This sequence of characters 
must be matched when the stored workspace is to be read back into the active 
workspace. If no workspace ID or password is entered, the password associated 
with the active workspace (if any) is assigned to the workspace being stored. 
If just the workspace ID and no password is entered, any password associated 
with the active workspace is not used. 

The )SI Command 

The )SI command displays the names of the suspended and pendent user-defined 
functions (see State Indicator in Chapter 7). The suspended functions are indicated 
by an *, with the most recently suspended function listed first, followed by the 
next most recently suspended function, and so on. 



Syntax 

)SI 
There are no parameters. 




The )SIV Command 



The )SIV command displays the names of the suspended and pendent user- 
defined functions (see State Indicator in Chapter 7) and the names local to 
each function. The suspended functions are indicated by an *, with the most 
recently suspended function listed first, followed by the next most recently 
suspended function, and so on. 
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Syntax 

)SIV 
There are no parameters. 

The (SYMBOLS Command 

The )SYMBOLS command is used to change or display the number of symbols 
(variable names, function names, and labels) allowed in the active workspace. The 
number of symbols allowed can only be changed immediately after a (CLEAR com- 
mand has been issued. In a clear workspace, the number of symbols allowed is 
initially set to 125 by the 5100. When the command is used to display the number 
of symbols allowed, IS the number of symbols allowed is displayed. When the com- 
mand is used to change the number of symbols allowed, WAS the former number of 
symbols allowed is displayed. 

Note: When a stored workspace is loaded into the active workspace, the number 
of symbols allowed in the active workspace will be the same as when the stored 
workspace was written to tape. 

Syntax 

(SYMBOLS [n] 

where: 

JL (optional) is an integer equal to or greater than 26 that specifies the number of 
symbols allowed in the active workspace; however, the number of symbols specified 
cannot exceed the active workspace size (see Storage Considerations in Chapter 9.) 

Note: The number of symbols allowed is assigned in blocks of 21 ; therefore the 
actual number allowed can be larger than the number specified. 



The )VARS Command 

The )VARS command displays the names of all global variables in the active work- 
space. The variables are displayed alphabetically. If the character parameter is 
included, the names are displayed beginning with the specified character sequence. 



Syntax 

)VARS f characters) ! 

where: 

character(s) (optional) is any sequence of alphabetic and numeric characters that 
starts with an alphabetic character and contains no blanks. This entry can be 
used to define the starting point for an alphabetic listing. 
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The )WSID Command 

The )WSID (workspace ID) command is used to change or display the tape device/ 
file number and workspace ID for the file where the active workspace contents will 
be written if either a )SAVE or a (CONTINUE command is used. The )WSID com- 
mand is also used to change or assign the security password. When the )WSID com- 
mand is issued without any parameters, device/file number workspace ID is dis- 
played. When the )WSID command is issued with parameters, WAS device/file number 
workspace ID is displayed. 

Note: The )WSID command only affects the active workspace; it cannot be used 
to change any information on tape. 



Syntax 

)WSID [ device/file number ] [ workspace I P I f : password ] 

where: 

device/file number (optional) is an integer that specifies the device/file number 
where the active workspace will be stored when either the (SAVE or (CONTINUE 
command is issued. 

Note: If this parameter is omitted, the device/file number is cleared; a (SAVE or 
(CONTINUE command will not work unless a device/file number is specified in 
that (SAVE or (CONTINUE command. 

workspace ID (optional) will be the new name for the active workspace. This 
parameter must be entered if any other parameter is used. 

: password (optional) is any combination of up to eight alphabetic or numeric 
characters (without blanks), preceded by a colon. These characters will become 
the security password for the tape file when the active workspace is written on 
tape. 
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Chapter 3. Data 



VARIABLES 




You can store data in the 5100 by assigning it to a variable name. These stored 
items are called variables. Whenever the variable name is used, APL supplies the 
data associated with that name. A variable name can be up to 77 characters in 
length with no blanks; the first character must be alphabetic and the remaining 
characters can be any combination of alphabetic and numeric characters. Variable 
names longer than 77 characters can be used, but only the first 77 characters are 
significant to APL. The <- (assignment arrow) is used to assign data to a variable: 



LENGTIH-6 

WIDTH*- 8 

AREAH-ENGTHxWIDTH 



To display the value of a variable, enter just the variable name: 



6 
8 
1+8 



LENGTH 

WIDTH 

AREA 



DATA REPRESENTATION 

Numbers 

The decimal digits through 9 and the decimal point are used in the usual way. The 
character ~ , called the negative sign, is used to denote negative numbers. It appears 
as the leftmost character in the representation of any number whose value is less 
than zero: 



-if 

"1 



Q-lf 



The negative sign, ~, is distinct from - (the symbol used to denote subtraction) and 
can be used only as part of the numeric constant. 
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Scaled Representation (Scientific Notation) 

You can represent numbers by stating a value in some convenient range, then mul- 
tiplying it by the appropriate power of ten. This type of notation is called scaled 
representation in APL. The form of a scaled number is a number (multiplier) followed 
by E and then an integer (the scale) representing the appropriate power of 10. For 
example: 



Number Scaled Form 



« 

66700 6.67E4 

L 



■Multiplier 
' Scale 



.00284 2.84E 3 

The E (E can be read times ten to the) in the middle indicates that this is scaled form; 
the digits to the right of the E indicate the number of places that the decimal point 
must be shifted. There can be no spaces between the E and the numbers on either 
side of it. 



Character Constants 

Zero or more characters enclosed in single quotes, including overstruck characters 
(see Appendix B) and blank characters (spaces), is a character constant. The quotes 
indicate that the characters keyed do not represent numbers, variable names, or 
functions, but represent only themselves. When character constants are displayed, 
the enclosing quotes are not shown: 

' ABODE FG " 
ABCDEFG 

"123 ABC 
123 ABC 

H<-'THE ANSWER IS: ' 

M 
THE ANSWER IS: 



When a quote is required within the character constant, a pair of quotes must be 
entered to produce the single quote in the character constant. For example: 



'DON-'T GIVE THE ANSWER AWAY 
DON'T GIVE THE ANSWER AWAY 
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Logical Data 



Logical (Boolean) data consists of only ones and zeros. The relational functions 
(> >n < <*) generate logical data as their result; the result is 1 if the condition was 
true arid if the condition was false. The output can then be used as arguments 
to the logical functions (aavv~) to check for certain conditions being true or false. 



SCALAR 




A single item, whether a single number or single character constant, is called a scalar. 
It has no coordinates; that is, it can be thought of as a geometric point. The follow- 
ing are examples of scalars: 



1 ~*.o X 

J. V# «£. i O 

•A* 
A 



Scalars can be used directly in calculations or can be assigned to a variable name. 
The variable name for the scalar can then be used in the calculations: 



6 



2x3 

A<-2 
B*3 
A+B 



ARRAYS 



Array is the general term for a collection of data, and includes scalars (single data 
items), vectors (strings of data), matrices (tables of data), and arrays of higher 
dimensions (multiple tables). All primitive (built-in) functions are designed to handle 
arrays. Some functions are designed specifically to handle arrays rather than scalars. 
Indexing, for example, can select certain elements from an array for processing. 

One of the simplest kinds of arrays, the vector, has only one dimension; it can be 
thought of as a collection of elements arranged along a horizontal line. The num- 
bers that indicate the positions of elements in an array are called indices. An element 
can be selected from a vector by a single index, since a vector has only one dimen- 
sion. The following example shows assigning a numeric and a character vector to two 
variable names, N and C; the names are then entered to display the values they re- 
present: 

N*5 6.2 "3 888 95.1.2 

N 
5 6.2 "3 888 93.:l.2 

O ' ABCDEFG ' 

C 
ABCDEFG 
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Generating Arrays 

The most common way to generate an array is to specify the following: the shape 
the array is to have— that is, the length of each coordinate; the values of the ele- 
ments of the new array. The APL function that forms an array is the reshape 
function. The symbol for the reshape function is p. The format of the function 
used to generate an array is Xp Y, where X is the shape of the array and Y represents 
the values for the elements of the array. For the left argument (X), you enter a 
number for each coordinate to be generated; this number indicates the length of 
the coordinate. Each number in the left argument must be separated by at least one 
blank. The values of the elements of the new array are whatever you enter as the 
right argument (Y). The instruction 7p A means that the array to be generated has 
one dimension (is a vector) seven elements in length, and that seven values are to 
be supplied from whatever values are found stored under the name A. It does not 
matter how many elements A has, as long as it has at least one element. If A has 
fewer than seven elements, its elements are repeated as often as needed to provide 
seven entries in the new vector. If A has more than seven elements, the first seven 
are used. The following examples show generation of some vectors: 

7pl 2 3 
12 3 12 3 1 

2 pi 2 3 
123 123 

5 f»l. 3 
1.3 1,3 1.3 1.3 1.3 



An array with two coordinates (rows and columns) is called a matrix. 





5 6 7 9 > Rows 

9 10 11 12, 

To generate a matrix, you specify X (left argument) as two numbers, which are the 
lengths of the two coordinates. The first number in X is the length of the first co- 
ordinate, or number of rows, and the second number is the length of the second 
coordinate, or number of columns. The following example shows how a matrix is 
generated: 



M<-2 3pl 2 3>+56 

M 
1 2 3 
•+ 5 6 

M<-2 '+p' ABCDEFGH " 

M 
A BCD 
EFGH 

MK-2 3pM 

Ml 
ABC 
DEF 33 




Note that the values in the right argument are arranged in row order in the arrays. If 

the right argument has more than one row, the elements are taken from the right 

argument in row order. — x 

The rank of an array is the number of coordinates it has, or the number of indices 
required to locate any element within that array. Vectors have a rank of 1, mat- 
rices have a rank of 2, and N-rank arrays have a rank from 3 to 63 (where N is equal 
to the rank). N-rank arrays, like matrices, are generated by providing as the left 
argument a number indicating the length for each coordinate (planes, rows, and 
columns). The following examples show how to generate 3-rank arrays. Note that 
the elements taken from the right argument are arranged in row order: 



A*- * ABCDEFGHI JKI...MNOPQRSTUVWXYZ ' 
2 3 >+pA 



A BCD 
EFGH 
IJKL 

MNOP 
QRST 
UVWX 



\ 2-plane, 3-row, 4-column array y 



'+ 3 2 P A 



AB V 

*'*•' \ 4-plane, 3-row, 2-column array 

EF 



GH 
IJ 
KL 

MN 
OP 
QR 

ST 
UV 
WX 



Finding the Shape of An Array 

Once you have generated an array, you can find its shape (number of elements in 
each coordinate) by specifying p (shape function) with only a right argument which 
is the name of the array. If A is a vector with six elements and you enter p A, the re- 
sult is one number because A is a one-dimensional array. The number is 6, the 
length (number of elements) of A's one dimension. The result of the shape function 
is always a vector: 

A*- 111. 222 333 '+MM- 555 666 
PA 



~) 
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The shape of a matrix or N-rank array is found the same way: 



H<-2 3pl 2 3 '+ 5 6 
M 



1 2 3 
'+ 5 6 

pM 

R«-2 3 '+pl 2 3 M- 5 6 7 8 
R 

1 2 3 >t 
5 A 7 8 
12 3 M- 

5 6 7 8 

12 3'+ 

5 6 7 8 

pR 

2 3"+ 




In some cases, it might be necessary to know just the rank, the number of coordi- 
nates (or indices) of an array. The rank can be found by entering pp (shape of the 
shape) and a right argument, which is the name of the array: 

A*- ill 222 333 '+'+'+ 555 666 
B*-2 3 pi 2 3 M- 5 6 
02 3 M-pl 2 3 '+ 5 6 7 



6 
1 
2 3 

2 3 1+ 
3 



pA 

PPA 

PB 

PPB 

PC 
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The following table shows what the shapes and ranks are for the various types of 
arrays: 



Data 






Type 


Shape pX 


Rank ppX 


Scalar 


No dimension (indicated by a blank line). 





Vector 


Number of elements. 


1 


Matrix 


Number of rows and the number of columns. 


2 


N-rank 






arrays 


Each number is the length of a coordinate. 


N 


Arrays 







Although most arrays have one or more elements, arrays with no elements also 
exist. An array with no elements is called an empty array. Empty arrays are useful 
when creating lists (see Catenation in this chapter) or when branching in a user- 
defined function (see Chapter 6). 

Following are some ways to generate empty arrays: 

• Assign \ to a variable name to generate an empty vector: 



EVECTOR«-\0 
E VECTOR 



pE VECTOR 



\ 



An empty array is indicated 
by a blank display. 



The shape of the empty vector 
is zero (zero elements). 



• Use a zero length coordinate when generating a multidimensional array: 



EMATRIXK-3 OpxO— 
EMATRIX1 

pEMATRIXl 



This matrix has three rows 
and no (0) columns. 

A blank output display 



3 



A function might generate an empty vector as its result; for example, finding the 
shape of a scalar: 



P ' A ' 



A blank output display. 
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CATENATION 

You can join together two arrays to make a single array by using the catenation 
function. The symbol for this function is the comma. When catenating vectors, 
or scalars and vectors, the variables are joined in the order in which they are speci- 
fied, as the following examples show: 





A*l 2 


3 




£«••■+ 5 


6 




A, IB 




1 2 3 


i+i+5 
B,A 


6 


•+ 5 6 


1 2 3 
A, 2 


i+ 


1 2 3 


•+ 2 
3 » A 




3 12 


3 ■+ 






When catenating two matrices or N-rank arrays, the function can take the form 
A,[I]B, where I defines the coordinate that will be expanded when A and B are joined. 
If the coordinate is not specified, the last coordinate is used. When A and B are 
matrices and [I] is [1], the first coordinate (number of rows) is expanded; when [I] 
is [2], the last coordinate (number of columns) is expanded. The following examples 
show how to catenate matrices: 

Graphic Representation 



A*- 2 3pl0 20 30 i+0 50 60^ 
B«-2 3 ell 22 33 '+■+ 55 66 



10 20 30 
40 50 60 



B 



11 22 
44 55 



33 
66 



A,B 
10 2.0 30 11 22 33 
"+0 50 60 •+'+ 55 66 

A,C23B 
10 20 30 11 22 33 
40 50 60 M-4- 55 66 





A 






B 


10 
40 


20 
50 


30 
60 


11 
44 


22 33 
55 66 





a, cub 


10 
1+0 
11 


20 30 

is - n i. n 


09 "K"K 

A.. Am WW 


'+!+ 


55 66 



10 


20 


30 


40 


50 


60 


11 


22 


33 


44 


55 


66 
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Matrices of unequal sizes can be catenated, providing that the lengths of the co- 
ordinates not specified are the same (see the first example following). If the co- 
ordinates not specified are not the same, an error results (see the second example 
following): 



A<-2 3pl0 20 30 tO 50 60 

B«-2 '+ p 1. 1. 22 33 MM- 55 66 77 88 

A,C23B 

10 20 30 11 22 33 M-M-^ 

'+0 50 60 55 66 77 88 



10 20 30 
40 50 60 



11 
55 



22 
66 



33 
77 



J 



44 
88 



A 












B 


10 
40 


20 
50 


30 
60 


11 
55 


22 
66 


33 
77 


44 
88 



A, C13B 
.ENGTH ERROR 
A, CI 3 B 



10 


20 


30 




40 


50 


60 




11 


22 


33 


44 


55 


66 


77 


88 



A scalar can also be catenated to an array. In the following example, a scalar is 
catenated to a matrix. Notice that the scalar is repeated to complete the coordinate: 





A<-2 3pl 




A 


10 


20 30 


M-0 


50 60 




A.C2399 


10 


20 30 99 


M-0 


50 60 99 




A, CI 399 


10 


20 30 


'4 


50 60 


99 


99 99 



20 30 M0 50 60 



D 



A vector can also be catenated to another array, provided the length of the vector 
matches the length of the coordinate not specified. See the following examples: 



A, 99 88 
10 20 30 99 
M0 50 60 88 



10 


20 


30 


99 


40 


50 


60 


88 



A, CI 399 88 
LENGTH ERROR — 
A.C13 99 88 



10 


20 


30 


40 


50 


60 


99 


88 
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The catenate function is useful when creating lists of information. Sometimes it is 
necessary to use an empty array to start a list. For example, suppose you want to 
create a matrix named PHONE where each row will represent a 7-digit telephone 
number. First you want to establish the matrix, then add the telephone numbers 
at a later time. The following instruction will establish an empty array named 
PHONE with no (0) rows and seven columns: 



7 



PHONE*- 7p\0 
PHONE 



P PHONE 



, Blank display indicates an 
empty array. 



Now, the telephone numbers can be added as follows: 




PHONE*- PHONE, Ci: 

PHONE 
16 

PHONE*- PHONE, Ci: 

PHONE 
5336686 
i+5 6"+ 7 71 

P PHONE 
2.7 



A. 



5336686' 



i+ 5 6' I- 7 71 



The list of telephone numbers 
now contains two rows. 



INDEXING 



You may not want to refer to the whole array but just to certain elements. Referring 
to only certain elements is called indexing. Index numbers must be integers; they 
are enclosed in brackets and written after the name of the variable to which they 
apply. Assume that A is assigned a vector as follows: A«-1.1 1.21.31.41.51.61.7. 
The result of entering A is the whole vector, and the result of entering A [2] is 1 .2 
(assuming the index origin is 1; see Chapter 5 for more information on the index 
origin). 



A Blank Character 



Here are some more examples of indexing: 

A*- 11 12 13 1'+ 15 16 17 

AC 3D 
13 

AC 5 3 7 ID 
15 13 17 11 

B*-3 1 '+ 6 

ACBD 
13 11 1M- 16 

B*- ' ABCDEFGHI JKLMNOPGRSTUVWXYZ 

BC4 1 14- 27 1 i«f •+ 27 3 12 1 9 18D 
DAN AND CLAIR 

022 9 18 7 9 m 9 1 

BCCD 
VIRGINIA 



I. 
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If you use an index that refers to an element that does not exist in the array, the 
instruction cannot be executed and INDEX ERROR results: 

A 
11 12 13 IN- 15 16 17 



AIZ8II 
INDEX ERROR 
AC83 



You cannot index or do anything else with an array until after the array has been 
specified. For example, suppose that no value has been assigned to the name Z; 
then an attempt to store values in certain elements within Z would result in an 
error, since those elements do not exist: 



o 



ZC3 'liH-lS i+6 
VALUE ERROR 

ZC3 i+:i<" 18 if 6 



Indices (whatever is inside the brackets) can be expressions, provided that when 
those expressions are finally evaluated, the results are values that represent valid 
indices for the array: 

B 
ABCDEFGHIJKLMNOPGRSTUVUXYZ 
X<-1 2 3 1+5 
BCXX2II 

BDFHJ 

X 
12 3 4 5 

BC1+XX33 
DGJMP 



The array from which elements are selected does not have to be a variable. For 
example, a vector can be indexed as follows: 



2 3 5 7 9 11 13 15 17 19K7 2 f 23 
13 3 7 3 

•ABCr.iEFGHIJKLMNQPGRSTUVWXYZ T.12 15 15 11 27 16 13 
LOOK PA 
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Indexing a matrix or N-rank array requires an index number for each coordinate. 
The index numbers for each coordinate are separated by semicolons. Suppose M is 
a 3 by 4 matrix of consecutive integers: 



M<-3 i+pl 2 3 1+56 7 8 9 10 11 12 

If you ask to see the values of M, they are displayed in the usual matrix form: 

M 

1 2 3 •+ 

5 6 7 8 

9 10 11 12 

If you want to refer to the element in row 2, column 3, you would enter: 

MC2;33 
7 

If you want to refer to the third and fourth elements in that row, you would enter: 

MC2;3 M-3 
7 8 

Similarly, to refer to the elements in column 4, rows 1, 2, and 1, you would enter: 

MCI 2 1;«+] 
1+ 8 ll- 



You can use the same procedure to select a matrix within a matrix. If you want the 
matrix of those elements in rows 2 and 3 and columns 1, 2, and 1 of M, you would 
enter: 

Mt:2 3;1 2 11 
5 6 5 
9 10 9 



If you do not specify the index number for one or more of the coordinates of the 
array that you are indexing, APL assumes that you want the entire coordinate(s). 
For instance, to get all of row 2, you would enter: 



MC2;3 
5 6 7 8 
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Or to get all of columns 4 and 1, you would enter: 

MC;4. 13 
•+ 1 
8 5 
12 9 



Note: You still have to enter the semicolon to make clear which coordinate is which. 
The number of semicolons required is the rank of the array minus one. If the correct 
number of semicolons is not specified, RANK ERROR results: 



M*3 l|-pxl2 

3 M- 

MCA 3*9 
RANK ERROR 

MCA. 3*9 



You can change elements within an array by assigning new values for the indexed 
elements. (The rest of the array remains unchanged.) 



A*3 3pl 2 3 1+56789 
A 
1 2 3 
'+ 5 A 
1 8 9 

AC2;2 33*10 20 
A 
1 2 3 
'•I- 10 20 
7 8 9 
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Chapter 4. Primitive (Built-in) Functions 



APL functions are of two types: user-defined and those that are built into the APL 
language. User-defined functions are discussed in Chapter 6. Built-in functions, 
called primitive functions, are denoted by a symbol and operate on the data you 
supply to them. 



The value or values you supply are called arguments. Primitive functions that use 
two arguments, such as A -r B, are said to be dyadic; functions that use one argument 
are said to be monadic, such as -r B, which yields the reciprocal of B. Arguments can 
be single data items (scalars), strings of data (vectors), tables of data (matrices), or 
multiple tables of data (N-rank arrays). Arguments can also be expressions or user- 
defined functions that result in a scalar, vector, matrix, or N-rank array. 

There are two types of primitive functions: scalar functions and mixed functions. 
There are also operators that operate on the primitive functions. Examples of the 
functions and operators are provided throughout this chapter for easy reference and 
are set up as they would appear on the display. 




PRIMITIVE SCALAR FUNCTIONS 



Scalar functions operate on scalar arguments and arrays. They are extended to 
arrays element by element. The shape and rank (see Chapter 3) of the result de- 
pend on the shape and rank of the arguments. For dyadic scalar functions, the re- 
lation between the types of arguments and the shape of the result is shown in the 
following table. Each scalar function is described following the table: 



Argument A 


Argument B 


Result 


Scalar 


Scalar 


Scalar 


Array 


Array with the same 
shape as A 


Array with the same 
shape as the 
arguments 


Scalar or one- 
element array 


Array of any 
shape 


Array with the 
same shape as 
argument B 


Array of 
any shape 


Scalar or one- 
element array 


Array with the same 
shape as argument A 


One-element 
array 


One-element array 
with the rank 
different from the 

rank of A 




One-element array 
with the shape of 
the array with the 
greater rank 
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The + Function: Conjugate, Plus f - | 

Monadic (One-Argument) Form: Conjugate +B "■-— ' 

The conjugate function does not change the argument. The argument can be a 
numeric scalar, vector, or other array, and the shape of the result is the same as that 
of the argument: 

+5 

5 

A*- "5 
+A 



If B is an array, the function is extended to each of the elements of B. The shape of 
the result is the shape of B: 



B<-2 3p"3 "2 "1 1 2 
B 
"3 "2 ~1 
1 2 

+ B 
"3 "'2 ~1 
1 2 



Dyadic (Two-Argument) Form: Plus A+B 

The plus function results in the sum of the two arguments. The arguments can be 
numeric scalars, vectors, or other arrays. Arguments must be the same shape, unless 
one of the arguments is a scalar or single-element array. If the arguments have the 
same shape, the result has the same shape as the arguments: 



3 + 3 
6 

3+2 . 73 
5.73 

2 . 6+ "3 . 8 
"1.2 

5.1 1 "1 "3+5.1 2 >+ 
10.2 3 "1 1 
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/- 



I 



If one argument is a scalar or single-element array, the shape of the result is the same 
as that of the other input argument. The single element is applied to every element 
of the multielement array: 



B<-2 3pl 2 3 M- 5 6 

B 
1 2 3 
■+ 5 6 

3+6 
i+ 5 6 
7 8 9 

B+3 
'+ 5 6 
7 8 9 



The - Function: Negation, Minus 



CD 



Monadic (One-Argument) Form: Negation -B 

The negation function changes the sign of the argument. The argument can be a 
numeric scalar, vector, or other array. The shape of the result is the same as that of 
the argument: 

A<-~1 "3 
A 

"1 "3 

-A 
:l. 3 



If the argument is an array, the function is extended to each element of the array: 



B<-2 3p~3 "2 "10 12 

B 
"3 "2 "1 
1 2 

-B 
3 2 1 
"1 "2 
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Dyadic (Two-Argument) Form: Minus A-B 

The minus function subtracts argument B from argument A. The arguments can be 
numeric scalars, vectors, or other arrays. The arguments must be the same shape un- 
less one of the arguments is a scalar or any single-element array. If the arguments 
are the same shape, the result has the same shape as the arguments: 



3-2 
1 

t-5 
"1 

M- • "5 
9 

5,1 :l. "1 -3-5.1 2 "4 
""I "1 1 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other input argument. The single element is applied to every 
element of the multielement array: 

B<-2 3pi 2 3 «, 5 6 
B 

12 3 
>•!■ 5 6 

3-B 

2 1 

i '"2 "3 

B-3 

"2 ~":l. 

J. A*. W 



The x Function: Signum, Times 



m 



Monadic (One-Argument) Form: Signum xB 

The signum function indicates the sign of the argument: if the argument is negative, 
~ 1 is the result; if the argument is zero, then is the result; if the argument is posi- 
tive, 1 is the result. The argument can be a numeric scalar, vector, or other array. 
The shape of the result is the same as that of the argument: 



x"25 33 
10 1 
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c 



If the argument is an array, the function is extended to each of the elements: 



B«-2 3(c> "2 "1 1 2 3 
B 
"2 ~1 
1 2 3 
xB 
"1 "1 
1 .1. 1 



Dyadic (Two-Argument) Form: Times AxB 

The times function result is the product of argument A times argument B. The 
arguments can be numeric scalars, vectors, or other arrays. The arguments must be 
the same shape, unless one of the arguments is a scalar or any single-element array. 
Arguments of the same shape have the same shape result: 



4-. 2 

3x"6 
"18 

2 i+x3 6.1 "M- 
12.2 "16 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other input argument. The single element is applied to every 
element of the multielement array: 



B<-2 3pl 2 3 13 6 

B 
1 2 3 
'+ 5 6 

3x6 

3 6 9 

12 15 18 
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The -r Function: Reciprocal, Divide J j | 

Monadic (One-Argument) Form: Reciprocal -^B ( j 

The reciprocal function result is the reciprocal of the argument. The argument can be 
a numeric scalar, vector, or other array. The shape of the result is the same as that of 
the argument: 

••••1+ 
. 25 

* Ah 

0.5 



If the argument is an array, the function is extended to each of the elements: 



B<-2 




92 


.5 




B 










A.. 









5 


1 

A» 









5 


rB 










0.5 






A.. 




0.5 






A» 





Dyadic (Two-Argument) Form: Divide A-HB — \ 

•J 
The divide function result is the quotient when argument A is divided by argument B. 

The arguments can be numeric scalars, vectors, or other arrays. The arguments must 

be the same shape unless one of the arguments is a scalar or a single-element array. 

Arguments of the same shape have the same shape result: 

6+3 

A.. 

\1) "•" A*,. 

1.5 

10 9 M-v-5 3 "+ 
2 3 1 
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If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other input argument. The single element is applied to every 
element of the multielement array: 



B<-2 2pl 10 20 100 

B 
1 10 
20 100 

3*B 
3 . 3 

0.15 0.03 



Note: There are two additional rules that apply to the divide function: 
1. When zero is divided by zero, the result is 1 : 



0*0 



2. Any value other than zero cannot be divided by zero: 



3*0 
DOMAIN ERROR 
3*0 
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The fFunction: Ceiling, Maximum 



CD 



Monadic (One-Argument) Form: Ceiling f B 

The ceiling function result is the next integer larger than the argument (the argument 
is rounded up), unless the argument already is an integer. In this case, the result is 
the same as the argument. The argument can be a numeric scalar, vector, or other 
array. The shape of the result is the same as that of the argument: 



|"3.5 "3.5 
'+ "3 

l+ 



If the argument is an array, the function is extended to each of the elements: 



B<~2 2p1 1.3 1.5 2 

B 

1.3 

9 



D 







1 






1.5 






I'B 


1 


Am 

o 





Note: The result of the ceiling function depends on the QCT system variable (see 
Chapter 5 for information on the QCT system variable). 



Dyadic (Two-Argument) Form: Maximum ATB 

The maximum function result is the larger of the arguments. The arguments can be 
numeric scalars, vectors, or other arrays. The arguments must be the same shape un- 
less one of the arguments is a scalar or any single-element array. Arguments of the 
same shape have the same shape result: 

6 

3|" 2 
3 

•"6|-"' 10 
"A 

5,1 J "1 ~3|"5.1 2 -M- 

5.1 a o -i 
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If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 

B<-2 3pl 2 3 M- 5 6 

B 
:l. 2 3 
M- 5 6 

31" B 
3 3 3 
"I- 5 6 



The L Function: Floor, Minimum 



CD 



Monadic (One-Argument) Form: Floor [B 

The floor function result is the next integer smaller than the argument (the argument 
is rounded down) unless the argument is already an integer. In this case, the result 
is the same as the argument. The argument can be a numeric scalar, vector, or other 
array. The shape of the result is the same as that of the argument: 



1.3.9 "2,3 
3 "3 



If the argument is an array, the function is extended to each of the elements: 

B*-2 2p:l. 1 .5 1 .6 2 

B 
1 1 . 5 

1 , 6 2 

LB 

1 1 
:l. 2 



Note: The result of the floor function depends on the QCT system variable (see 
Chapter 5 for information on the QCT system variable). 
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Dyadic (Two-Argument) Form: Minimum ALB 

The minimum function result is the smaller of the arguments. The arguments can be 
numeric scalars, vectors, or other arrays. The arguments must be the same shape un- 
less one of the arguments is a scalar or any single-element array. Arguments of the 
same shape have the same shape result: 

'M..6 
4 

3 1.. 2 

"10 

5.1 1 "I -3L5.1 2 "4 
5.1 1 "1 "4 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 

B<-2 3pl 2 3 1+56 

B 
1 2 3 
'+ 5 6 

3LB 



o 



3 3 3 



The | Function: Magnitude, Residue 



CD 



Monadic (One-Argument) Form: Magnitude | B 

The magnitude function result is the absolute value of the argument. The argument 
can be a numeric scalar, vector, or other array. The shape of the result is the same 
as that of the argument: 

I 7 . ? 
7 . 9 

I "3 
3 



If the argument is an array, the function is extended to each of the elements: 

B<-2 2p"5.1 "1 3.14 

B 

"5.1 "1 

3.14 

IB 

5 . 1 1 

3.14 
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Dyadic (Two-Argument) Form: Residue A | B 

The residue function result (when both argument A and argument B are positive) is 
the remainder when argument B is divided by argument A. The following rules 
apply when using the residue function: 

1. If argument A is equal to zero, then the result is equal to argument B: 

0I6 
6 



2. If argument A is not equal to zero, then the result is a value between 
argument A and zero (the result can be equal to zero, but not equal to 
argument A). The result is obtained as follows: 

a. When argument B is positive, the absolute value of argument A is subtracted 
from argument B until a value between argument A and zero is reached: 



3 I 5 



b. When argument B is negative, the absolute value of argument A is added to 
argument B until a value between argument A and zero is reached: 



3 I "5 



The arguments can be numeric scalar, vectors, or other arrays. The arguments must 
be the same shape, unless one of the arguments is a scalar or any single-element 
array. Arguments of the same shape have the same shape result: 

3 I 7 
1 

316 

613 

I 7 

710 

"2112.3 

"':> i "1 '? "K 

21 "1.2.3 
112. 385 






3 

7 



"1 .7 

"0.3 

1.7 

. 385 

1 I "2 . 385 
0.615 53 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 

B<-2 3pl 2 3"+56 

B 
1 2 3 
'+5 6 

3IB 
1 2 
1 2 



The * Function: Exponential, Power 



m 



Monadic (One-Argument) Form: Exponential *B 

The exponential function result is the Naperian base e (2.718281828459045) raised 
to the power indicated by the argument. The argument can be a numeric scalar, 
vector, or other array. The shape of the result is the same as that of the argument: 

*1 
2.7183 

*3 
20.086 

If the argument is an array, the function is extended to each element of the array: 

B«-2 2p0 1 2 3 

B 
:i. 
*:> ~k 

*B 
3 2 . 7183 

7.389:1. 20 ! 086 



Dyadic (Two-Argument) Form: Power A* B 

The power function result is argument A raised to the power indicated by 
argument B. The arguments can be numeric scalars, vectors, or other arrays. The 
arguments must be the same shape unless one of the arguments is a scalar,or any 
single-element array. Arguments of the same shape have the same shape result: 

2*3 
8 

*" S V? O 

U I *\. * J 

3*0 
1 

9* . 5 
3 

2* "3 
.123-. 2*3= 1/2 3 = 1/8 = .125 



o 
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If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 

B<-2 2pl 2 3 it- 
1 2 
3 •+ 

B*2 
1 4- 

9 16 



The ® Function: Natural Log, Logarithm [° | [ * 1 

The ©symbol is formed by overstriking the o symbol and the * symbol. 

Monadic (One-Argument) Form: Natural Log ®B 

The natural log function result is the log of the argument B to the Naperian base e 
(2.718281828459045). The argument can be a non-negative numeric scalar, vector, 
or other array. The shape of the result is the same as that of the argument: 



1 



( ) 



•2.7183 
•20.086 



If the argument is an array, the function is extended to each element of the array: 



B<-2 2p1 3 10 20 
B 



1 3 
10 20 



1 ■ 0986 

2.3026 2.9957 



Dyadic (Two-Argument) Form: Logarithm A»B 

The logarithm function result is the log of argument B to the base of argument A. 
The arguments can be numeric scalars, vectors, or other arrays. The arguments must 
be the same shape, unless one of the arguments is a scalar or any single-element array. 
Arguments of the same shape have the same shape result: 

2®8 

3 

3.1»12.8 

a., i XU \.t w T 

2 3 4.©8 9 16 
~K ':> o 

W A» A« 
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If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



B<~2 2pl 2 3 ■+ 



J 



B 



1 -} 




3 •+ 




10»B 







0.30:1.03 


0. if 77 12 


0.60206 



The o Function: Pi Times, Circular [ ° 1 

Monadic (One-Argument) Form: Pi Times o B 

The pi times function result is the value of pi (3.141592653589793) times B. The 
argument can be a numeric scalar, vector, or other array. The shape of the result is 
the same as that of the argument: 



01 



3.11+16 



o3 



9 . 4-24-8 



If the argument is an array, the function is extended to each element of the array: 



B«-2 2pl 2 3 4- 
B 



1 '> 

■1. Aw 




3 '+ 




OB 




3.1'+16 


6 . 2832 


9 . '+24- 8 


12.566 



Dyadic (Two-Argument) Form: Circular Ao B 

The circular function result is the value of the specified trigonometric function 
(argument A) for the specified radians (argument B). The arguments can be 
numeric scalars, vectors, or other arrays. Arguments must be the same shape, un- 
less one is a scalar or single-element array. Arguments of the same shape have the 
same shape result. The following is a list of the values for the A argument and the 
related functions performed. A negative argument A is the mathematical inverse 
of a positive argument A; any values for argument A other than the following 
will result in DOMAIN ERROR: 
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r 

V 



Value of A Operation Performed 

OOB (1-B*2)*.5 

1oB Sine B 

2oB Cosine B 

3oB Tangent B 

4oB (1+B*2)*,5 

5oB Hyperbolic sine of B (sinh B) 

6oB Hyperbolic cosine of B (cosh B) 

7oB Hyperbolic tangent of B (tanh B) 

~1 oB Arcsin B 

~2oB Arccos B 

~3oB Arctan B 

"4oB (~1+B*2)*.5 

~5oB Arcsinh B 

~6oB Arccosh B 

""7oB Arctanh B 

If B is 45°, here is how to solve for the sine, cosine, and tangent of B (45° is equiva- 
lent to pi radians divided by 4): 



B The left argument specifies 

. 785M- / the trigonometric function. 

loB 
. 7 7 1 1- Sme of B 

2oB 

. 7071 1 •* Cosine of B 

3b B 

1 -. Tangent of B 
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If B is the sine of an angle, then OoB yields the cosine of the same angle, and con- 
versely, if B is the cosine, OoB yields the sine. Suppose you wanted the sine of 
30°, which is equivalent to pi divided by 6: 



3 



B<"1Q(ck-6> 
B 



0.5 

OoB 
0.86603*- 



B«-2o<o*6> 
B 
0.86603- 



OOB 



.5* 



-Sine of 30 
■ Cosine of 30° 

■Cosine of 30° 
Sine of 30° 




If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 

A<-2 2pl 2 3 1 



B<-o-:M. 




A 




1 2 




3 4 




B 




. 785M- 




AoB 




0.70711 


0.70711 


1 


X i a, { A O 
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The ! Function: Factorial, Binomial 



,w CD CD 

The ! symbol is formed by overstriking the quotation mark( » )and the period (.). 



Monadic (One-Argument) Form: Factorial !B 

The factorial function result is the product of all the positive integers from one to 
the number value of the argument. The argument can be a positive numeric scalar, 
vector, or other array. The shape of the result is the same as that of the argument: 

!'+ 
24 

24- 

!1 2 3 4 5 
.1. 2 6 24 120 



The factorial function also works with decimal numbers and zero. When used in this 
way, factorial can be defined by use of the mathematical gamma function: 

13.3.4 
7.1733 

!0 
1 



If the argument is an array, the function is extended to each of the elements: 

B<-2 2p0 1 2 3 

B 
1 
2 3 

IB 

i i 

2 6 



Dyadic (Two-Argument) Form: Binomial A!B 



The binomial function result is the number of different combinations of argument B 
that can be taken A at a time. The result of AIB is also the (A+1 ) th coefficient of 
the binomial expansion of the B power. The arguments can be numeric scalars, 
vectors, or other arrays. The argument must be the same shape, unless one of the 
arguments is a scalar or any single-element array. Arguments of the same shape 
have the same shape result: 



6 

15 



1 

3 



2 !•+ 
2! 6 
310 
0!3 
2!3 



W 



WX 



WY 



WZ 



XY 



XZ 



YZ 



Z -» 



-Argument B 



The combinations of 
argument B taken 
argument A(2) at a time 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



1 2 3!3 
13 3 1 

1 2 3 '+!•+ 
1 4- 6 '+ 1 

B<-2 2p0 12 3 
B 
1 
2 3 

B!5 
1 5 

10 10 

2 ! "•+ 5 "+ . 5 '+ 
10 10 7.875 6 



60 



r ) 



I. 



The ? Function: Roll 







Monadic (One-Argument) Form: Roll ?B 

The roll function result is a randomly selected integer from through B-1 or 1 
through B (depending on the index origin). Each integer in the range has an equal 
chance of being selected. The argument can be a positive integral scalar, vector, or 
other array. The shape of the result is the same as that of the argument: 





?30 




202 


?30 




3 








?5 7 


9 


2 1 4- 


?6 6 




5 '•!• 


?6 6 




6 6 







If the argument is an array, the function is extended to each element of the array: 



B<-2 3pli 22 33 'I'l 55 66 
B 

J, ,1. *i. a'.. \J vS 

'•l-i-l- 55 66 
?B 
2 17 16 
2'l 13 'I- 



Dyadic (Two-Argument) Form 

See the Deal function later in this chapter under Primitive Mixed Functions. 
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The a Function: And 



m 



Monadic (One-Argument) Form 

There is no monadic form. 



D 



Dyadic (Two-Argument) Form: And AaB 

The and function result is 1 when A and B are both 1 ; otherwise, the result is 0. The 
value of the arguments must be either or 1 . The arguments can be scalars, vectors, 
or other arrays. The arguments must be the same shape unless one of the arguments 
is a scalar or any single-element array. Arguments of the same shape have the same 
shape result: 



OaI 


lAl 

:l. 

IaO 


:l. 
1 



Operator 



IaO J. 1 



And Table 



A 





1 











1 





1 



-« — Argument A 



V 



Argument B 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



^ 



1 

.1. 

1 

1 



B«-2 2p0 1 .1. 
B 



IaB 
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The v Function: Or 







Monadic (One-Argument) Form 

There is no monadic form. 

Dyadic (Two- Argument) Form: Or AvB 

The or function result is a 1 when either or both arguments are 1; otherwise, the 
result is 0. The values of the arguments must be 1 or 0. The arguments can be 
scalars, vectors, or other arrays. The arguments must be the same shape, unless 
one of the arguments is a scalar or any single-element array. Arguments of the 
same shape have the same shape result: 



Or Table 



lvO 

OvO 

:l. lvo 1 1 
1 1 1. 



Operator 



\ 








1 










1 


1 


1 


1 



■Argument A 




' Argument B 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



1 

1 

:l. l 

:l. l 



B<-2 2p0 1 .0 1 
B 



lvB 
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The ~ Function: Not 



CD 



Monadic (One-Argument) Form: Not ~ B 

The not function result is 1 when B is and when B is 1 . The values of the argu- 
ment must be 1 or 0. The argument can be a scalar, vector, or other array. The shape 
of the result is the same as that of the argument: 



"0 
1 





If the argument is an array, the function is extended to each element of the array: 



B<-2 3p0 1 
B 

1 
10 1 

*B 

1 1 
1 



D 



Dyadic (Two-Argument) Form 

There is no dyadic form. 
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The a Function: Nand 

The a symbol is formed by overstriking the and (a) and the not (~) symbols. 



Monadic (One-Argument) Form 

There is no monadic form. 

Dyadic (Two-Argument) Form: Nand AaB 

The nand function result is when both A and B are 1 ; otherwise, the result is 1 . 
The values of the arguments must 1 or 0. The arguments can be scalars, vectors, or 
other arrays. The arguments must be the same shape, unless one of the arguments 
is a scalar or any single-element array. Arguments of the same shape have the same 
shape result: 

Nand Table 



0X1 
1 



o o i ixo 
l l :l. 



Operator - 



1 



r* 





1 











1 


1 




1 


1 









Argument A 



Argument B 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 





B<-2 2f>0 1 




B 


1 




1 






UB 


1 




1 
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The v Function: Nor 

The v symbol is formed by overstriking the or (v) and the not (~) symbols. 



3 




Monadic (One-Argument) Form 

There is no monadic form. 

Dyadic (Two-Argument) Form: Nor AvB 

The nor function result is 1 when A and B are both 0; otherwise, the result is 0. The 
values of the arguments must be 1 or 0. The arguments can be scalars, vectors, or 
other arrays. The arguments must be the same shape, unless one of the arguments 
is a scalar or any single-element array. Arguments of the same shape have the same 
shape result: 

Nor Table 



ISO 



OCfO 
1 

o o i ivO l o i. 

10 



Operator ■ 



► V 





1 





1 





1 


o 


o 



Argument A 



Argument B 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



1 
1 


B<-2 2p0 
B 


1 


0SB 


:l. 
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The > Function: Greater Than 

Monadic (One-Argument) Form 

There is no monadic form. 



Dyadic (Two-Argument) Form: Greater Than A>B 

The greater than function result is 1 when argument A is greater than argument B; 
otherwise the result is 0. The arguments can be numeric scalars, vectors, or other 
arrays. The arguments must be the same shape, unless one of the arguments is a 
scalar or any single-element array. Arguments of the same shape have the same 
shape result: 





1.56>2 









~2>0 









"'3> "2 









0>-'i|-.'l- 


1 






1 . i23> 1.123 









5.1 1 "l -3>5.1 a "'•!• 
1 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



B<-2 3p:l. 2 3 "I 5 6 
B 

'•I- 5 6 

3>B 
1 1 


Note: The result of the > function depends on the OCT system variable (see 
Chapter 5 for information on the QCT system variable). 
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The = Function: Equal To 

Monadic (One-Argument) Form 

There is no monadic form. 



Dyadic (Two-Argument) Form: Equal To A=B 

The equal to function result is 1 when the value of argument A equals the value 
of argument B; otherwise, the result is 0. The arguments (numeric or character) 
can be scalars, vectors, or other arrays. The arguments must be the same shape, 
unless one of the arguments is a scalar or any single-element array. Arguments 
of the same shape have the same shape result: 



D 




o 
i 



:l. 
1 



0=5 

1 .65^321 = 1 .654-321 

■ A ' = ' B * 

■ A ' = ' A ' 
1 3 5 7=2 3 if 5 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array. 

• A ' = ' ABACADAEAFAG ' 
1 1 1 1 1 1 



Note: If the arguments are numeric, the result of the = function depends on the 
QCT system variable (see Chapter 5 for information on the QCT system variable). 
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The < Function: Less Than 

Monadic (One-Argument) Form 

There is no monadic form. 



Dyadic (Two-Argument) Form: Less Than A<B 

The less than function result is 1 when argument A is less than argument B; other- 
wise the result is 0. The arguments can be numeric scalars, vectors, or other arrays. 
The arguments must be the same shape, unless one of the arguments is a scalar or 
any single-element array. Arguments of the same shape have the same shape result: 









1.65<2 


1 
1 






"2<0 
"3<~2 


.1. 






< "«f . '+ 









1.1 23 < 1.1 23 









5.1 % "1 "3 





W. 


l 







If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



B<-2 3pl 2 3^56 

B 
1 2 3 
•■I- 5 6 

3<B 



1 1 1 

B<3 
1 :l. 




Note: The result of the < function depends on the QCT system variable (see 
Chapter 5 for information on the QCT system variable). 
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The > Function: Greater Than or Equal To 

Monadic (One-Argument) Form 

There is no monadic form. 



Dyadic (Two-Argument) Form: Greater Than or Equal To A> B 

The greater than or equal to function result is 1 when argument A is greater than 
or equal to argument B; otherwise, the result is 0. The arguments can be numeric 
scalars, vectors, or other arrays. The arguments must be the same shape, unless one 
of the arguments is a scalar or any single-element array. Arguments of the same 
shape have the same shape result: 



D 





1.65>2 









"2>0 









7 '•'' ' ? 


1 









5.1 1 "1 "3 £3.1 2 "3 3 

1 o 111 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



Bf-2 3pl 2 3 M- 5 6 

B 
1 2 3 
'+ 5 6 

3>B 
:l. 1 1 




Note: The result of the > function depends on the QCT system variable (see Chapter _ 

5 for information on the []CT system variable). ^ 
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The < Function: Less Than or Equal To 



Monadic (One-Argument) Form 

There is no monadic form. 

Dyadic (Two- Argument) Form: Less Than or Equal To A< B 

The less than or equal to function result is 1 when argument A is less than or equal 
to argument B; otherwise, the result is 0. The arguments can be numeric scalars, 
vectors, or other arrays. The arguments must be the same shape, unless one of the 
arguments is a scalar or any single-element array. Arguments of the same shape 
have the same shape result: 



"2<0 
1 

O ~: a*.. 

i 

0::l"2 


5.1 1 "1 -3S5.1 3 "2 "5 
J. 1 



If one argument is a scalar or a single-element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 

B<-2 3pl 2 3 •* 5 6 

B 
12 3 
'+ 5 6 

3<B 

1 

1 1 1 

Note: The result of the < function depends on the QCT system variable (see Chapter 
5 for information on the QCT system variable). 
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The £ Function: Not Equal To 



m 



Monadic (One-Argument) Form 

There is no monadic form. 

Dyadic (Two-Argument) Form: Not Equal To A^B 

The nor equal to function result is 1 when argument A is not equal to argument B; 
otherwise, the result is 0. The arguments (numeric or character) can be scalars, 
vectors, or other arrays. The arguments must be the same shape unless one of the 
arguments is a scalar or any single-element array. Arguments of the same shape 
have the same shape result: 



D 




0*5 

1.123*1.123 
' A '*' A' 
"AVB' 



1 





1 

5.1 lil "1 "3*5.1 111 "M- 

Olll 



If one argument is a scalar or a single element array, the shape of the result is the 
same as that of the other argument. The single element is applied to every element 
of the multielement array: 



•A'/'ABACAOAEAFACT 
1 1 .1. 1 1 1 



Note: If the arguments are numeric, the result of the £ function depends on the 
DCT system variable (see Chapter 5 for information on the []CT system variable). 
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PRIMITIVE MIXED FUNCTIONS 

The mixed functions differ from scalar functions because the shape of their results 
depends on the particular mixed function rather than exclusively on the shape of 
the arguments. The following list gives a brief description of each of the mixed 
functions. Following the list, each function is discussed in detail: 



Monadic 




Mixed 




Functions 


Name 


pB 


Shape 



Result 

The length of each coordinate of the 
argument. 



,B 



4B 



Ravel 



Grade up 



1/ B 


Grade down 


IB 


Index 




generator 


<t>Bor 


Reverse 


4>[I]B 




or eB 




iS?B 


Transpose 


iB 


Matrix 




inverse 


±B 


Execute 


TB 


Format 


Dyadic 




Mixed 




Functions 


Name 


ApB 


Reshape 




(structure) 


A,B 


Catenate 



or 
A,[I]B 



A vector containing the elements of B 
in the order they exist in the rows of B. 

The index values that would select the 
elements of B in ascending order. 

The index values that would select the 
elements of B in descending order. 

B consecutive integers starting from 
the index origin. 

The elements of the argument are 
reversed. 



The coordinates of the argument are 
reversed. 

The inverse of a square matrix or the 
pseudoinverse of a rectangular matrix. 

Argument B executed as an expression. 

Argument B converted to a character 
array. 



Result 

An array of a shape specified by A, 
using elements from B, 

The two arguments joined along an 
existing coordinate ( [I] is a positive 
integer). 




A,[I]B 



Laminate The two arguments joined along a new 

coordinate ([I] is a fraction). 
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Dyadic 
Mixed 




Functions 


Name 


A/B or 

A/[l]Bor 

A/B 


Compress 


A\Bor 

A\[l]Bor 

A\B 


Expand 



Result 

The elements from B that correspond 
to the 1's in A. 



B is expanded to the format specified 
by A; 1 in A inserts an element from 
B; a in A inserts a or blank element. 



J 



A+B 



Take 



The number of elements specified by A 
are taken from B. 




A+B 



AiB 



A(J)Bor 
Acj>[l]B 
or AeB 



Drop The number of elements specified by A 

are dropped from B. 

Index of The first occurrence in A of the elements 

in B. 

Rotate The elements of B are rotated as specified 

by A. If A is positive, the elements of B 
are rotated to the left. If A is negative, 
the elements of B are rotated to the right. 



Afc)B 



Generalized The coordinates of B interchanged as 

transpose specified by A. 



A?B 



AiB 



AtB 



Deal The number of elements specified by A 

are randomly selected from B, without 
selecting the same number twice. 

Decode The value of argument B expressed in 

(base value) the number system specified by 

argument A. 

Encode The representation of argument B in 

(representation) the number system specified by 
argument A. 



AeB 



Membership A 1 for each element of A that can be 

found in B and a for each element 
not found. 



A@B 



Matrix 
divide 



Solution to one or more sets of linear 
equations with coefficient matrix 
(matrices) B and right-hand sides A or 
the least squares solution to one or 
more sets of linear equations. 



AtB 



Format Argument B converted to a character 

array in the format specified by 
argument A. 
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Note: The mixed functions reverse, rotate, compress, and expand, and the operators 
(see Operators later in this chapter) reduction and scan can be applied to a specific 
coordinate of an array. This is done by using an index entry [I] which indicates the 
coordinate to which the mixed function or operator is applied. The value of the 
index entry can be from 1 to the number of coordinates in the array; the leftmost 
coordinate (first coordinate) has an index value of 1, the next coordinate has an 
index value of 2, and so on. A matrix, for example, has an index value of 1 for the 
row coordinate and an index value of 2 for the column coordinate. If an index entry 
is not specified, the last coordinate (columns) is assumed. If a - (minus) symbol is 
overstruck with the function symbol or operator symbol, the first coordinate is 
assumed (unless an index value was also used). When a function or operator is ap- 
plied to a specific coordinate, the operation takes place between corresponding ele- 
ments in the specified coordinate. For example; assume you have a 3-rank array: 

• When the first coordinate (planes) is specified, the operation takes place between 
corresponding elements in each plane. 

• When the second coordinate (rows) is specified, the operation takes place between 
the corresponding elements in each row per plane. 

• When the third coordinate (columns) is specified, the operation takes place be- 
tween the corresponding elements in each column per plane. 



The p Function: Shape, Reshape (Structure) C7~\ 

Monadic (One-Argument) Form: Shape pB 

The shape function result is the shape of the argument; it has one element for each 
coordinate of the argument, which indicates the length of that coordinate. The 
argument can be any variable or constant: 



if 



3 



p ' ABCD ' A Vector with Four Elements 

pl 2 
Pi 2 3 

A*- 2 3pl 2 3 '+ S 6 

A 



•+ 5 A 

p A 

iC. t.7 



The shape function applied to a scalar yields an empty vector, since a scalar has no 
coordinates. An empty vector is indicated by a blank result line: 



Blank Result Lines 
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The instruction p pB yields the rank (shape of the shape, or, number of coordinates) 
of B: 



3 

B<-2 2 3p'CARBARFARARE' ^ 




B 

CAR 
BAR 

FAR 
ARE 

PB 
2 2 3 

PPB 



Dyadic (Two-Argument) Form: Reshape (Structure) ApB 

The reshape function forms an array of the shape specified by argument A using 
element(s) from argument B. The elements of argument B are placed into the 
array in row order. If there are not enough elements in argument B to fill the 
array, the elements are repeated. If there are more elements in argument B than 
are required to fill the array, only the required number of elements are used. 
Argument A must be a positive integer or vector of positive integers. The number 
of elements in argument A is equal to the number of coordinates, or the rank, of 
the result. Argument B can be any variable or constant. If all of the elements of 
argument A are nonzero, then B cannot be an empty array: 



2 3pl 2 3 M- 5 6 
1 2 3 

i-l- 5 6 

4- 2p'ABCDEFGH" 
AB 
CD 
EF 
GH 

5p' MOUSETRAP' 
MOUSE 

3 i+pl23 
123 123 123 .1.23 
123 123 123 123 
123 123 123 123 

A<-4 2 pi. 2 3^56 7 8 

A 
1 2 
3 M- 
5 6 
7 8 

2 3pA 
1 2 3 
'+ 5 6 

6p ' " ' 
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The , Function: Ravel, Catenate, Laminate 



Monadic (One-Argument) Form: Ravel ,B 



CD 



The ravel function results in a vector containing the elements of argument B. If 
argument B is an array, the elements in the vector are taken from argument B 
in row order. Argument B can be a scalar, vector, or other array. The resulting 
vector contains the same number of elements as argument B: 



A<-2 2 2p1. 2 3 4 5 6 7 8 
A 

J. A*.. 

3 '+ 

5 6 
7 8 

,A 
:l. 2 3 M- 5 6 7 8 

B«-2 3p'ABCDEF' 
B 
ABC 
DEF 

,B 
ABC DEF 



Dyadic (Two-Argument) Form: Catenate or Laminate A,[I]B 

The function \scatenate when the [I] entry (index entry) is an integer and laminate 
when the [I] entry is a fraction. 
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Catenate (The Index [I] Entry Is an Integer): The catenate function joins two items along 
an existing coordinate. (See the laminate function following for a description of how 

to join two items along a new coordinate). The index [I] , if given, specifies which ; ~^ 

coordinate is expanded. The index entry must be a positive scalar or one-element — ^ 

array. If no index [I] is specified, the last coordinate is used. Matrices of unequal 
sizes can be joined, providing the lengths of the coordinate not specified are the 
same (see Catenation in Chapter 3) : 




AM 


'+ 








B<-7 


9 I: 








A,B 










i.|. 7 9 5 










A<-2 


3p:l 


2 


3 '+ ', 


5 6 


B<-2 


3p7 


8 


9 10 


11 


A 










J. A*» O 










'+ 5 6 










B 










7 8 9 










10 11 12 










A,B 










1 2 3 


7 


8 


9 




H- 5 6 


10 


11 


12 




A , 1" i 


"IB 








1 2 3 










M- 5 6 










7 8 9 










10 11 12 










A,C;: 


>JB 








1 2 3 


7 


8 


9 




4- 5 6 


10 


11 


X *V. 




AiC2 


►310 


20 






1 2 3 


10 








'+5 6 


20 








10 1 


30, i: 


13 A 




10 20 30 










1 2 3 










'+ 5 6 











X A*.. 
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Laminate (The Index [I] Entry is a Fraction): The laminate function joins two items by 
creating a new coordinate, specified by the index entry [I] which must be a posi- 
tive fraction. If the index entry is between and 1, the new coordinate becomes 
the first coordinate; if the index entry is between 1 and 2, the new coordinate is 
placed between existing coordinates 1 and 2 (the new coordinate that is added al- 
ways has a value (or length) of 2). The following chart shows the positions of a 
new coordinate in the shape vector (see the following examples) when two 3 by 
3 matrices are laminated: 



Index Value 


Positions of New 
Coordinate in the Shape 
Vector 


.1 - .9 
1.1 - 1.9 
2.1 - 2.9 


2 3 3 

3 2 3 
3 3 2 




Lamination requires either that arguments A and B are the same shape or that one 
of the arguments is a scalar: 



AKJ 3j»l 2 3 '-I- 5 6 7 8 9 

B<-3 3pll 22 33 M-M- 55 66 7? 88 9? 

A 

:l. 2 3 

i-l- 5 6 
7 8 9 

B 
11 22 33 
'•Ml- 55 66 
77 88 99 

oa.. i: , s::ib 
c 
:l. 2 3 

i-l- 5 6 
7 8 9 



11 22 33 

'l-i-i- 55 66 

77 88 99 

PC 

2 3 3- 



-Shape Vector 
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OA , 


:i ,5::ib 




C 






1 2 3 






11 22 33 






M- 5 6 






'•l-i-l- 55 66 






7 8 9 






77 88 9? 






PC 






s 2 *'> * 




Shape Vector 


OA, 
n 


i::2.i::ib 




1 11 






'•> ':> ':> 

A.. .:.. A.. 






3 33 






5 55 






6 6 6 






7 77 






8 88 






9 99 






PC 

»v -y /'\ 










Shape Vector 



o 



o 



The following examples show the result when the two matrices in the preceding example 
are catenated instead of laminated: 



a,i:::i.3B 

1 2 3 
4 5 6 
7 8 9 

J. .1. A*.. A^. iJv!) 

M-i+ 55 66 

77 88 99 

A»C23B 
1 2 3 11 22 33 
M- 5 6 i-l-M- 55 66 
7 8 9 77 88 99 
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The/ Function: Compress 



CD 



Monadic (One-Argument) Form 

See Reduction later in this chapter under APL Operators. 

Dyadic (Two-Argument) Form: Compress A/[l]Bor A/Bor A/B 

The compress function selects elements from argument B corresponding in sequence 
to 1's in argument A. Argument A must be a logical scalar or vector having the 
values or 1. Argument B can be any scalar, vector, or other array. Both arguments 
must have the same number of elements unless: 

• One of the arguments is a scalar or single-element array. 

• Argument B is an array; then the number of elements in argument A must be 
the same as the length of the argument B coordinate being acted on. 

When argument B is an array, the [I] index entry is used to specify the coordinate 
that is acted on. If the index entry is omitted, the last coordinate (columns) is 
assumed. If the Ai^B form is used, the first coordinate is assumed. The rank of the 
result is the same as the rank of argument B: 










1 





1. 


i/i 


o 

A.. 


3 


i+ 


5 


1 


3 
2 


is: 

3 


1 


1 


1/1 


2 3 










1 





















() 


0/1 


2 3 











/ 



Blank Display Line (empty array) 



B<-3 '+p:l. 2 3 15 6 7 8 9 10 11 12 
B 



1 2 3 '+ 
5 6 7 8 



9 10 11 12 

1 { v The first coordinate (rows) is specified; 

the first and third rows, as specified by 



1 2 3 u, \ 

- ■ - -:> ^ 

. 

V 



? I. .1. 1 1 ... argument A, are selected. 

1 1 0/C23B- 



r 
10 11 

1 1/B 

1 2 3 M- 
9 10 11 12 

1 1 0/B 

2 3 
6 7 

10 11 

1/B 
1 2 3 M- 
5 6? 8 
9 10 11 12 

0/B 



The second coordinate (columns) is specified; 
the second and third columns, as specified by 
argument A, are selected. 



Blank Display Line (empty array) 
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The \ Function: Expand 



m 



Monadic (One-Argument) Form 

See Scan later in this chapter under APL Operators. 

Dyadic (Two-Argument) Form: Expand A\[l] B or A\B or A\B 

The result of the expand function is argument B expanded as indicated by 
argument A. Each 1 in argument A selects an element from argument B and each 
in argument A inserts a (or blank for character data) in the result. Argument A 
must be a logical scalar or vector having the values or 1 . Argument B can be any 
scalar, vector, or other array. If argument B is a scalar or vector, argument A must 
have the same number of 1's as the number of elements in argument B. If 
argument B is an array, argument A must have the same number of 1's as the length 
of the argument B coordinate being acted on. 

When argument B is an array, the [I] index entry is used to specify the coordinate 
that is acted on. If the index entry is omitted, the last coordinate (columns) is 
assumed. If the A\B is used, then the first coordinate is assumed. 

The rank of the result is the same as the rank of the B argument: 



1 1 1 0\1 2 3 
10 2 3 

B«-2 3 pl 2 3 4 5 6 
B 



12 3 

'+ 5 6 

1 1\C13B 

l 2 3 \ The first coordinate (rows) is 

^ expanded; a row is inserted be- 
ll- 5 ^ tween the first and second row. 

110 i\C23B 
12 3 \ Tn e second coordinate (columns) is 

4 5 6 ^ expanded; a column is inserted 

1 1\B between the second and third columns. 

1 2 3 

4 5 6 
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The 4 Function: Grade Up f a 1 C~\ 1 

The ^ symbol is formed by overstriking the A symbol and the | symbol. 

Monadic (One-Argument) Form: Grade Up ^B 

The grade up function result is the index values that would select the elements of 
argument B in ascending order. That is, the first element of the result is the index 
of the smallest element in argument B, the next element is the index of the next 
smallest element in argument B, and so on. Argument B must be a numeric vector. 
When two or more elements in the vector have the same numeric value, their posi- 
tion in the vector determines their order in the result (the index value of the first 
occurrence appears first in the output). The number of elements in the result is the 
same as the number of elements in the argument: 



43 1 5 2 '+ 
2M-15 3 

*A<-6 2 5 1 '+ 3 
1+26531 

A3 6 3 1 5 2 
1+61352 



The following example shows how the grade up function can be used to sort a vec- 
tor into ascending order: 




A<-1'+ 12 16 IB 15 11 

a i::*aj 

11 12 1'+ 15 16 18 



The grade up function is not the inverse of the grade down function because of the 
way equal elements are handled; see The f Function: Grade Down for an example 
using the grade up and grade down functions with equal elements. 

Note: The result of the ^ function depends on the QIO system variable (see Chap- 
ter 5 for information on the []IO system variable). 



Dyadic (Two-Argument) Form 

There is no dyadic form. 
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The \f Function: Grade Down [ v 1 f~i | 

The \f symbol is formed by overstriking the Vsymbol and the | symbol. 

Monadic (One-Argument) Form: Grade Down ^ 

The grade down function result is the index values that would select the elements 
of argument B in descending order. That is, the first element of the result is the 
index of the largest element in argument B, the next element is the index of the 
next largest element in argument B, and so on. Argument B must be a numeric 
vector. When two or more elements in the vector have the same numeric value, 
their position in the vector determines their order in the result (the index value 
of the first occurrence appears first in the output). The number of elements in 
the result is the same as the number of elements in the argument: 

¥3 1 5 2 '4 
3 5 1'+ 2 

♦A*-6 2 5 1 '•!• 3 

1 3 5 6 2 M- 

?3 6 3 1 5 2 

2 5 13 6 "•!• 



The following example shows how the grade down function can be used to sort a 
vector in descending order: 



A*l'+ 12 16 18 15 11 

ai::9a:i 

18 16 15 !•+ 12 11 



The following example shows how equal elements are handled when using the grade 
up and grade down functions: 



A<-5 2 8 7 3 '+ 10 12 3 

A 
5 ? 8 7 3 4- 10 1 2 3-* Positions 2 and 9 and 5 and 10 are equal. 

<?A 
7 3 ■+ 1 6 5 10 2 9 8 

*A 
8293 10 ' 6 1 «+ 3 7 
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Because the indices for the equal elements are in the same order (first occurrence 
first) for both the grade down and grade up function, the grade down function is 
not the inverse of the grade up function: 



ai::*a::i 

10 8 7 5 if 3 3 2 2 i 

ai::aa.i 

12233"+57810 

Note: The result of the ^ function depends on the QIO system variable (see Chap- 
ter 5 for information on the QIO system variable). 



Dyadic (Two-Argument) Form 

There is no dyadic form. 
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The + Function: Take f t 1 

Monadic (One-Argument) Form "-— / 

There is no monadic form. 

Dyadic (Two-Argument) Form: Take A+B 

The take function result is the number of elements specified by argument A, taken 
from argument B. Argument B can be a scalar, vector, or other array. Argument A 
must be a scalar or vector of integers. If argument B is a vector, argument A must 
be a scalar. If argument B is a multidimensional array, argument A must be a vector 
with an element for each coordinate of argument B. When argument A is positive, 
the first elements of argument B are taken; when argument A is negative, the last 
elements are taken. If argument A specifies more elements than the number of 
elements in argument B, the result is padded with O's (or blanks for character data): 

3tl 2 3 '+ 5 
12 3 

~3tl 2 3 4 5 
3 4- 5 

7tl 2 3 4- 5 
1 2 3 1+500 

"7tl 2 3 4- 5 
12 3 4-5 

B<-3 4- pi 2 3'+567 8 9 10 1:1. .1.2 
B 
12 3 4- 
5 6 7 8 
9 10 11 12 
2 3tB 
1 2 3 
5 6 7 

B<-2 2 3pl 23*5478910 11 12 
B 

X 4U w 



7 8 9 
10 11 12 



i i its 

2 1 ltB 



1 

1 

7 

1 2 3tB 
12 3 
•+5 6 

"1 2 3tB 
7 8 9 
10 11 12 
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The 4- Function: Drop 



CD 



Monadic (One- Argument) Form 

There is no monadic form. 

Dyadic (Two-Argument) Form: Drop A4-B 

The drop function result is the remaining elements of argument B after the number 
of elements specified by argument A is dropped. Argument B can be a vector or 
other array. Argument A must be a scalar if argument B is a vector. 

When argument B is an array, argument A must have one element for each coordi- 
nate of argument B. When argument A is positive, the first elements of argument B 
are dropped from the result; when argument A is negative, the last elements are 
dropped: 



3*1 2 3 % 5 
* 5 

"3*1. 2 3 '+ 5 
1 2 

B<-3 i+p:l. 2 3 «+ 5 6 7 8 9 10 11 12 

B 
1 2 3 '+ 




f 5 6 7 8 

V J 9 10 11 12 

1 2*B 
7 8 
.1.1 12 

"1 "2*B 
1 2 
5 6 
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The i Function: Index Generator, Index of [ 2 1 

Monadic (One-Argument) Form: Index Generator \B ) 

The index generator function result is a vector containing the first B integers, start- 
ing with the index origin (see QIO system variable in Chapter 5). The argument can 
be a nonnegative integer that is either a scalar or a single-element array. 



A<- \ 6 
A 
12 3 1+56 

5+ \ 5 ■+ Each of the generated integers is added to 5. 

6 78? 10 



Dyadic (Two- Argument) Form: Index of AiB 

The index of function result is the index of the first occurrence in argument A of 
the element(s) in argument B. Argument A must be a vector. Argument B can be 
a scalar, vector, or array. The result is the same shape as argument B. If the element 
in argument B cannot be found in argument A, the value of the index for that ele- 
ment is one greater than the largest index of A (QIO + pA): 



2 5 3 5 8x5 
2 -* Second Element 

1 ABCDEFG ' \ ' C ' 
3 

AMI 22 33 i+M- 55 

A 1 22 
':> 

A \ 23 
6 

A<-9 2 8 8 2 6 M- 8 

B<-2 3pl 9 8 15 2 

B 
19 8 
1 5 2 

AxB 
9 1 3 
9 9 2 



Note: The result of the \ function depends on the QIO system variable (see Chapter 
5 for information on the QIO system variable). 
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The c|) Function: Reverse, Rotate 



CDS 



The c(> symbol is formed by overstriking the o symbol and the | symbol. A special 
form of the function symbol ise, formed by overstriking the o symbol and the - 
symbol. 



Monadic (One-Argument) Form: Reverse c|>[l] B or cj)B or eB 

The reverse function reverses the elements of argument B. Argument B can be any 
expression. 
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When argument B is a multidimensional array, the index entry [I] can be used to 
specify the coordinate that is acted on. If the index entry is omitted, the last co- 
ordinate (columns) is acted on. If the ©B form is used, then the first coordinate 
is acted on: 



3 



01 2 3 ■+ 
M- 3 2 1 

*'LIVE* 
EVIL 

*2 Zp\6 
3 2 1 
6 5 '•!• 

A<-2 2 H-p 

A 
SAVE 
MUCH 



SAVEMUCHMO RETIME 



MORE 
TIME 

MORE 
TIME 

SAVE 
MUCH 

MUCH 
SAVE 

TIME 
MORE 

EVAS 
HCUM 

EROM 
EMIT 

EVAS 
HCUM 



*C13A 



<di::2::ia 



*C33A 

V 



*A 



V 



-The first coordinate (plane) is specified; 
the planes are reversed. 



-The second coordinate (rows) is specified; 
the rows in each plane are reversed. 



■The third coordinate (columns) is 
specified; the columns in each plane are 
reversed. 



"The last coordinate is acted on. 



EROM 
EMIT 

MORE 
TIME 



e>A 



V 



-The first coordinate is acted on. 



SAVE 
MUCH 
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Dyadic (Two-Argument) Form: Rotate Acj> [I] B or A(|>B or AeB 



The rotate function rotates the elements of argument B the number of positions 
specified by argument A. If argument A is positive, then the elements of 
argument B are rotated to the left (rows), or upward (columns). If A is negative, 
the elements are rotated to the right (rows), or downward (columns). Argument B 
can be any expression. The shape of the result is the same as that of argument B. 

When argument B is a multidimensional array, the index entry [I] can be used to 
specify the coordinate that is acted on. If the index entry is omitted, the last co- 
ordinate (column) is acted on. If the AeB form is used, then the first coordinate 
is acted on. 

If argument B is a vector, then argument A must be a scalar or single-element array. 
If argument B is a matrix, then argument A must be a scalar or vector. When 
argument A is a vector, the number of elements in argument A must be the same as 
the number of elements in the coordinate being rotated. For example, if B is a 3 
by 4 matrix (each row has four elements) and the row coordinate is specified, A 
must have four elements: 

2*1 2 3 4 5- 3 4 5 

3 4 5 12 ( ) 

"2*1 2 3 4- 5 ^ 2 — ^ 1 

4 5 1 2 3 

7*1 2 3 4 5 
3 M- 5 12 

B<-3 4<> 1 2 3 4 5 6 7 8 9 10 11 12 
( " _ l The first coordinate (rows) is specified; 

'■ *• '* + / therefore, the rotation is between rows. 

5 6 7 8 / 

9 10 11 12 / ^5 2 r~l 

1 1 2*f:i3B 

5 2 7 12 
9 6 11 4 
1 10 3 8 

1 20C23B 
1 2 3 4 \^ 



11 



li 10 3 J 8 J 



-The last coordinate is acted on. 



£ 7 q 5 The second coordinate (columns) is specified; 

1 1 1 2 9 10 therefore, the rotation is between columns. 

1 2*B 
1 2 3 ^ \ 
6 7 8 5 
11 12 9 10 

10 1 20B 

9 6 11 4- The first coordinate is acted on. 

1 10 3 8 

A*--l 12 
A 
"1 "1 "2 

a*ci::ib 

9 2 11 8 
1 6 3 12 
5 10 7 4 
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If argument B is an N-rank array, argument A must be a scalar or an array with a 
rank that is one less than the rank of argument B. The shape of argument A must 
be the same as argument B less the coordinate being acted on: 



3 



B<~3 


3 3 


p\ 


27 
















B 






1 2 3 






'+ 5 6 






7 8 9 






10 11 12 






13 14- 15 






16 17 18 






19 20 21 






O n '■.ft o U. 






K~ \J j&. O A\. I 






pB 






3 3 






A<-3 


3pl 


0002 


A 






1 




-— The shape of argument A must be the same 


2 ()-*■ — ' 




as argument B less the coordinate being 







acted on. 


pA 






3 






A*C13B 




10 2 3 


N 


— The first coordinate (planes) is specified; 


M- 23 6 




therefore, the rotation is between planes. 


7 8 9 




•X 






The first element 




1 








Argument A 


1 9 1 1 1 2 






13 5 15 
16 17 18 


in each plane is 
rotated one position 
between planes. 





2^ 

















1 20 21 
22 1"4 2M- 















^"""- The middle 






element in each 




plane is rotated two 


25 26 27 




positions between 


a«c; 


>:jb 


planes. 


i+ 2 3 


\ 




7 5 6 


\ 




18 9 


\ 


— The second coordinate (rows) is specified; 


10 17 12 




therefore, the rotation is between the rows. 


13 11 15 




. Araument A 


16 !•+ 18 






/ 


on between rows of 






1 








Rotat 


19 20 21 












the fit 


st plane 

ion between rows of 


a. XL aV w a., *r 





2 





Rotat 


OS ?A 07 






the se 


cond plane 

ion between rows of 










Rotat 

















theth 


ird p 


lane 







D 
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The § Function: Transpose, Generalized Transpose f~o~~\ f~\~) 

The § symbol is formed by overstriking the o symbol and the \ symbol. 

Monadic (One-Argument) Form: Transpose $ B 

The transpose function reverses the coordinates of argument B. Argument B can be 
any expression. If argument B is a scalar or vector, the argument is unchanged by 
the function: 



*7 
7 

$ ' ABCD " 
ABCD 

B*-2 3pl 2 3 »f 5 A 
B 

1 2 3 ■+ 2-row 3-column matrix. 

M- 5 6 

1 *+■* 3-row 2-column matrix. 




3 6 

B<-2 3 Mp\2'+ 
B 
12 3 '•!• 

r ~ 3 6 7 8 

K^y 9 10 11 12 

13 Vi 15 16 
17 18 19 20 

& * A. A. A. \J A. *T 

SB 

1 13 

5 17 
9 21 

2 1<I- 

6 18 
10 22 



3 1<3 ^~""^ The coordinates are reversed. 

7 19 

11 23 

4 16 

8 20 

12 2M- 
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Dyadic (Two-Argument) Form: Generalized Transpose A§B 

The generalized transpose function interchanges the coordinates of argument B as 
specified by argument A. Argument B can be any expression. Argument A must 
be a vector or a scalar, and must have an element for each coordinate of argument B; 
also, argument A must contain all the integers between 1 and the largest integer 
specified. For example, to transpose the rows and columns of a matrix, argument A 
would be 2 1 : 



B+-2 3p1 2 3 M- 5 6 

B 
12 3 
'+ 5 6 

2 1*B 
1 '+ 



To transpose the rows and columns of a 3-rank (three-coordinate) array, argument A 
would be 1 3 2: 



B«-2 3 <+p\2'+ 

B 
1 2 3 M- 
5 6 7 8 

9 10 11 12 | 

13 m 15 16 

17 IB 19 20 



An array with two planes, three rows, and four columns. 



:>i ">"> ':>"* ':>t.i. 

U ,1. A.. A„ *U. \.t Ah I 

1 3 2 SB 

1 5 9 

2 6 10 

3 7 11 
M- 8 1 2 f The second and third coordinates have been interchanged,. 

forming an array with two planes, four rows, and three 
13 17 A-...I. | columns. 

1M- 18 22 

15 19 23 

16 20 2'-l- 
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The ? Function: Deal 



Monadic (One-Argument) Form 

See the Roll function earlier in this chapter under Primitive Scalar Functions. 

Dyadic (Two-Argument) Form: Deal A?B 

The deal function randomly selects numbers from through B-1 or 1 through B 
(depending on the index origin), without selecting the same number twice. Both 
arguments must be single positive integers. Argument A must be less than or equal 
to argument B; argument A determines how many numbers are selected. 









:l.?7 






'■I- 






2? 7 






7 


3 




7 ?7 






5 


■p 


:l. 


7 3 
7 ?7 


6 


M- 


5 


3 


o 


1 7 
7?7 


6 


4- 


2 


7 


6 


'■I- 5 


1 


3 
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The i Function: Decode (Base Value ) f l j 

Monadic (One- Argument) Form 

There is no monadic form. 

Dyadic (Two-Argument) Form: Decode AiB 

The decode function result is the value of argument B expressed in the number 
system specified by argument A. For example, to convert 1776 to its value in the 
decimal number system (base 10): 



10 10 10 10.1.1 7 7 6 
1776 



D 




The following illustration shows how it was done: 

Argument A (number system) specifies the following: 



10 10 10 10 

t t » \ 



"Ten units in each of these positions 
equals one unit of the next position 
to the left. 



Argument B is a vector with these values: 

17 7 6 

The result is the same as doing the following: 

6 = 6 The units position always represents itself. 

7 x10 = 70 ^^^^ 
7 x10x10 = 700 ~ " — The value in the next position is multiplied 

1 x10x10x10 = 1000 ^y by the rightmost value in argument A. 

1776 

The value in the next position is multiplied 
by the two rightmost values in argument A, 
and so on. 

The arguments must be numeric. If one argument is a scalar or single-element array, 
the other argument can be a scalar, vector, or other array. The result will have the 
rank of the larger argument minus one. 
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o 



; 



If either argument A or B is not a scalar, they both must have the same length, or 
an error results. 

Note: The value of the leftmost position of argument A can be zero, because even 
though there must be a value in that position, it is not used when calculating the 
result. For example: 



10 10 10.1.1 7 7 6 
1776 



If either argument is a scalar, the value of that argument is repeated to match the 
length of the other: 



10 l 3 2 5 
325 

10 10 10 J. 7 
777 



If argument A is a vector and argument B is a matrix, argument A must have an 
element for each row of B: 



B<-2 3pl 5 2 7 9 M- 
B 
15 2 

7 9 <+ 

10 10 .1. B 
17 59 2i-l- 



If argument A is a matrix and argument B is a vector, each row of argument A is a 
separate conversion factor; argument B must be the same length as a row of 
argument A. The result will be a vector with one element for each row of 
argument A: 



A* 2 3pl0 10 10 10 5 
A 
\ 1 10 10 3=3 

10 5 2 x5 = 10 

Aj.1 2 3 1 X 10x5 = 50 

123 63- 63 

Aj.2 3 '•!• 
23M- 119 
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If both arguments are matrices, each row of A (conversion factor) is applied to each 
column of B. The result is a matrix containing the converted values for each column 
of B: 



A<-2 3pl0 10 10 20 10 5 

B<-3 2pl 2 2 4 3 3 

A 
10 10 10 
20 10 5 

B 

1 "> 

J. Km 

2 4- 

3 3 

A3 123 



J 



The following examples convert hours, minutes, and second to all seconds: 



24- 60 60 J. 1 30 15 



otxu 



The following illustration shows how it was done: 
Argument A (number system) 

r 



24 



60 



-60 units (seconds) equals one unit of 
the next position to the left. 

.60 units (minutes) equals one unit of the 
next position to the left. 

-24 units (hours) equals one unit of the 
next position. 



Argument B 

1 (hour) 30 (minutes) 15 (seconds) 

The result was obtained as follows: 

15 - 15 seconds 

30 x 60 = 1800 seconds 

1 x 60 x 60 = 3600 seconds 

5415 seconds 



The t Function: Encode (Representation) f T 1 

Monadic Form 

There is no monadic form. 

Dyadic Form: Encode At B 

This function is the reverse of the decode function. The encode function result is 
the representation of argument B in the number system specified by argument A. 

Note: Be sure argument A is long enough to completely represent argument B or 
an incorrect answer results. 

For example, the representation of 1776 in the decimal number system (base 10): 



10 10 10 10 T1776 
1 7 7 6 



The following illustration shows how it was done: 

Argument A (number system) specifies the following: 

10 10 10 10 

\ | f f Ten units in each of these positions 

equals one unit of the next position to the 
left. 

Argument B has this value: 

1776 
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The result is the same as doing the following: 



1 



10x10x10= 1000 IT776 

1000 

776 



10x10 



100 1775 

700 

76 




10 176' 
70 



Note: The value of the leftmost position of argument A can be zero. For example: 



10 10 1 Or 1776 
1 7 7 6 



If both arguments are vectors, the result is a matrix. Each column in the result con- 
tains the representation for each element of argument B expressed in the number 
system specified by argument A: 



10 10 t17 59 2M- 



1 o 



5 2 

■ 9 M- 



10 5 t 17 36 2M- 
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If argument A is a matrix and argument B is a scalar, then the result is a matrix. 
Each column of the result contains the values of argument 8 expressed in the 
number system specified by the corresponding column of argument A: 



A<-3 2pl0 20 10 10 10 
A 



10 20 
10 10 



10 



1 2 

2 4- 

3 3 



B<-123 
At§ 



$ A T B ■* The result can be transposed so that 

12 3 each row represents the values of 

2 4- 3 argument B expressed in the number 

systems specified by argument A. 



If argument A is a scalar or vector and argument B is a matrix, the result is a matrix 
or N-rank array, with one plane for each element of argument A: 



A<-10 10 10 

E«-2 2pl23 4-56 789 000 

A 
10 10 10 

B 
123 4-56 
789 

AtB 

1 4- 

"T o 

2 5 

8 

3 A 

9 
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If both arguments are matrices, the result is an N-rank array, with one plane for 
each element of argument A. Each column of argument A represents a number 
system: 



A<-2 2pl0 20 
A 



10 20 
10 20 



B«-2 2p 99 88 77 66 
B 



99 88 
77 66 



AtB 



9 8 




Result of the number system in 
column 1 of argument A 

Result of the number system in 
column 2 of argument A 



D 



The following example converts seconds to seconds, minutes, and hours: 



2M- 60 60 t 5415 
1 30 15 
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The following illustration shows how it was done: 
Argument A (number system) 
24 60 60 



-60 units (seconds) equals one unit of the 
next position to the left. 

-60 units (minutes) equals one unit of the 
next position to the left. 

-24 units (hours) equals one unit of the 
next position to the left. 



Argument B 
5415 (seconds) 
The result was obtained as follows: 




11 



60 x 60 = 3600 |5415 
3600 
1815. 

30 



60 [1815 

1800 

15 
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The e Function: Membership 

Monadic (One-Argument) Form 

There is no monadic form. 



J 



Dyadic (Two-Argument) Form: Membership A e B 

The membership function result is a 1 for each element of argument A that can be 
found among the elements of argument B and a for every element that cannot be 
found. The shape of the result is the same as the shape of argument A. 
Arguments A and B can be any scalar, vector, or array: 



1 

1 
.1. 1 



1 3 

5 7 



4<1 2 3 4 5 

1.5€l 2 3 4 5 

" A ' « ' BANNA ' 

1 ABC ' € ' BANANA ' 

A<-2 2pl 3 5 7 
B<-4 4pl2 45 78 
A 

B 



12 '1-5 78 12 
'•1-5 78 12 45 
78 12 i+5 78 
12 '1-5 78 12 

A«B 





1 3 

5 7 



B<~4 < I p :l. 2 4 5 7 8 
A 



B 



12 4 5 
7 8 1 2 
4 5 7 8 
1 2 4 5 

A«B 
1 
1 1 
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The @. Function: Matrix Inverse, Matrix Divide J D 1 j j j 



The § symbol is formed by overstriking the □ and the * symbols. 



Monadic (One-Argument) Form: Matrix Inverse @ 

The matrix inverse function inverts a nonsingular matrix or computes the pseudo- 
inverse of a rectangular matrix. The result is a matrix. Argument B must be a 
numeric matrix, and the number of columns must not exceed the number of rows. 
The number of columns in the argument is the number of rows in the result, and 
vice versa. 

If argument B is a nonsingular matrix, @B is the inverse of B. If the matrix does 
not have an inverse, then DOMAIN ERROR results: 



Af-2 


2pl 


3 5 


7 


A 








:l. 3 








5 7 








HA 








"0.875 







375 


0.625 




"0 


1 '? ,:v . 

J. A.. V * 


A*- 2 


2pl 


2 3 


6 


A 








1 2 








3 6 








El A 








DOMAIN ERROR 






El A 








A 










J 2 '•!• 

a a 



If argument B is a rectangular matrix, HB is the pseudoinverse of the matrix (least 
squares solution): 



A«3 2p3 5 :l. 2 2 M- 

A 
3 5 
:l. 2 



2 ":l. "2 

1 0.6 1.2 



Dyadic (Two-Argument) Form: Matrix Divide A@B 



The matrix divide function solves one or more sets of linear equations with co- 
efficient matrices. Argument B must be a numeric matrix. The number of columns 
in B must not exceed the number of rows. Argument A must be a numeric vector or 
a matrix. The length of the first coordinate of argument A must equal the length 



) of the first coordinate of argument B. 
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The rank of the result is the same as the rank of argument B. The length of the 
first coordinate of the result is the same as the number of columns in argument B. 
If argument A is a matrix, then the second coordinate of the result is the same 
length as the second coordinate of argument A. 

If argument B is a square matrix and argument A is a vector, then the result is 
the solution to the set of linear equations with coefficient matrix B and right-hand 
sides A: 



A<-8 3 

B<-2 2pl 2 3 "1 

A KID 
2 3 

B<-2 2p3 3 .1. 2 

B 
3 5 
1 2 

26 9E3B 
7 1 



If argument B is a square matrix and argument A is a matrix, then the columns of the 
result are the solution to the sets of linear equations with coefficient matrix B and 
right-hand sides equal to the columns of A: 



A<-2 2f>26 16 9 6 
B<-2 2p3 5 1 2 
A 
26 16 
9 6 
B 



3 5 
1 2 



ABB 
7 2 

1 2 



If argument B is rectangular, then the result is the least squares solution to one or 
more sets of linear equations: 

1 





A<~3 


3pll 


If "2 4- 7 




B<-3 


2p3 


5 12 2 4- 




A 






11 


m- 


__ 

aU 




4- 


7 


"1 




11 


1'+ 
B 






3 5 








1 2 








2 4- 


A0B 






-if 






_ ? 


4- 


.6 




7 
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The * Function: Execute 

The 4 symbol is formed by overstriking the i and the o symbols. 



Monadic (One-Argument) Form: Execute &B 

The execute function evaluates and executes argument B as an APL expression. 
Argument B can be any character scalar or vector. 



1+2 
3 



A*-'l+2' 
A 

*■ A The character vector in the variable A is executed. 




€<■■• <<A*2) + <B*2>>*.5' 

AK3 

B<»M- 

A<-6 
aC 
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Dyadic (Two-Argument) Form 

There is no dyadic form. 
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The * Function: Format [ t 1 ( ■> 1 

The ? symbol is formed by overstriking the t and the o symbols, 

Monadic (One-Argument) Forms: Format tB 

The monadic format function result is a character array that is identical in appear- 
ance to the one displayed when the value of argument B is requested: 





B«-3 M-px 12 




B 


1 


2 3 M- 


5 


6 7 8 


9 


10 11 12 




X<-tB 




X 


1 


2 3 •+ 


5 


6 7 8- 


9 


10 11 12 



This matrix is a character matrix. 



Dyadic (Two-Argument) Form: Format A? B 

The dyadic format function result, like the monadic format function result, is a 
character array. However, argument A is used to control the format (the spacing and 
precision) of the result. Argument A is a pair of numbers: the first number deter- 
mines the total width of the format for each element and the second number deter- 
mines the precision used. 
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If the precision number is positive, the result is in the decimal form, with the number 
of decimal places specified by the precision number. If the precision number is 
negative, the result is in scaled form, with the number of digits to the left of the E 
specified by the precision number: 



B<-3 2P12.3M- "3^.567 12 0.26 "123. 4-5 
B 

1.2.34- "34-. 567 

12 

"0.26 123. 4-5 

X<-9 2tB 
X 

12.34- "3M-.57 

.00 12.0 

",26i "123.M-5| 




A_ 



-Width of nine positions 
-(left margin) 




09 "2tB 

C 

1.2E01 "3.5E01 
0.0E01 1.2E01 

l"2.6E"Ql| "1.2E02 | 



-Width of nine positions 
■(left margin) 



If the width entry in argument A is zero, the 5100 uses a field width such that at 
least one space will be left between adjacent numbers. If only a single number is used, 
a width entry of zero is assumed. 



E<-2tB 
E 
12.34- -3M-.57 
.00 12.0 
-,26| ~ 123 ,4-5| 




A. 



• Width of eight positions 
(left margin) 
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Each column of an array can be formatted differently by using a control pair in 
argument A for each column of the array. 



F<-6 2 6 ItB 



J 



3.2 . 3M- "34.6 

.00 12.0 

I •".26f:).23.Ml 




\ \. 



•Width of six positions 
•(left margin) 




Notes: 

1. If the QPW system variable is set to an invalid value, QPW IMPLICIT ERROR will 
result when the format function is used. 

2. Even if the specified format causes all of the significant digits to be truncated, 
the sign of the original number is retained. For example: 



•+ 2t".0 0QM- 
7.00 



-The sign is retained. 
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APL OPERATORS 

An APL operator applies one or more dyadic primitive scalar functions to arrays. 
The operators are reduction, inner product, outer product, and scan. 



Reduction Operator (/) 



m 



The symbol for the reduction operator is /. The forms of reduction are: (f)/[l] B or 
(f)/B or(7)/B, where(7)can be any primitive dyadic scalar function that is applied 
between each of the elements of a single vector. 



The rank of the result is one less than the rank of argument B, unless argument B 
is a scalar or a single-element vector; then the result is the value of the single element 
of argument B. When argument B is a vector, the reduction of that vector is the same 
as putting the primitive dyadic function between each of the elements: 



10 



10 



B<-1 2 3 '+ 
+ /B 

1 + 2+3+M- 




If argument B is an empty vector (see Chapter 3), then the result is the identity 
element, if one exists, for the specified function. The identity elements are listed 
in the following table: 

Identity Element Table 



Dyadic 
Function 




Identity 
Element 


Times 


X 


1 


Plus 


+ 





Divide 


A 


1 


Minus 


- 





Power 


* 


1 


Logarithm 
Maximum 


® 

r 


"7.237 . . . E75 


Minimum 


L 


7.237 . . . E75 


Residue 


I 





Circular 


o 




Binominal 


! 


1 


Or 


V 





And 


A 


1 


Nor 


V 




Nand 


A 




Equal to 
Not equal to 
Greater than 


¥ 
> 


1 \ 

1 Apply for 

\ logical 


Not less than 


> 


1 / arguments 


Less than 


< 


1 only 


Not greater than 


< 


1 ) 



111 



When argument B is a multidimensional array, the [I] index entry is used to specify 
the coordinate acted on. If the index entry is omitted, the last coordinate (columns) 
is acted on. If the® /B form is used, the first coordinate is acted on. Indexing along a 
nonexistent coordinate will result in INDEX ERROR. 

When argument B is a multidimensional array, the coordinate of argument B that is 
acted on is eliminated: 

B«-2 3p:l. 2 3 'I- 5 6 
B 
1 2 3 
i+ 5 6 

+ /B 

6 15 ^ The last coordinate (columns) is assumed; 

*/[] 2 II B therefore, the reduction is between columns: 

6 15 \ 

+ /B \ 1+2+3=6 

5 7 9 \ 

+ / 1" 1 .! B The second coordinate (in this case, columns) 

5 7 9 ^~~^^_ ' s specified. 

B<-2 3 4p\2M- 

B '^The first coordinate (rows) is specified; 

1 2 3 4- therefore, the reduction is between rows: 

5 6 7 8 

9 10 11 12 1 2 3 

4 5 6 
fS 1.1+ 15 16 5 7 9 

17 18 19 20 

21 22 23 24- 

+/C13B 

m 16 18 215 The first coordinate 

22 2M' 26 28 (planes) is specified; 
30 32 34- 36 therefore, the reduction 

£(<•• x o is between planes. 

B 

+ /B 

= /B 

IV B 
7.237E75 




1 



If argument B is an array that has a coordinate whose dimension is zero, then reduc- 
tion along that coordinate yields an array whose elements are equal to the identity 
element for the function. The identity element for each function is given in the 
preceding table. 
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Inner Product Operator (.) [ : 1 



The symbol for the inner product operator is . (period). The inner product opera- 
tor is used to combine any two primitive scalar dyadic functions and cause them to 
operate on an array. An example of its use would be in matrix algebra, in finding 
the matrix product of two matrices. The form for inner product is: A© .@, 
where©and (g)are any primitive scalar dyadic functions. Function^) is performed 
first and then©reduction is applied between the results of function (g). 

The result is an array; the shape of the array is all but the last coordinate of 
argument A catenated to all but the first coordinate of argument B (~1 + p A),(H pB). 
If argument A and argument B are matrices, the elements in each row of argument A 
are acted on by the elements in each column of argument B: 



A<-2 2pl 2 3 4 
B<-2 2p5 6 7 8 
A 



B 



-(1x5) + (2x7) = 19 



1 2 

TT 

5 6 

1 B/ 

19 22 

43 50 



The above example is the same as doing the following for each element in the result: 

<1XS)+<2X7> 
19 

< 1X6) +(2x8) 
22 

<3xS)+(4x7) 
43 

(3x6)+<4x8) 
50 
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The shapes of arguments A and B must conform to one of the following conditions: 
1 . Either A or B is a scalar. 



A<-2 2pl 2 3 M- 

B<-5 

A 



D 



1 2 



B 



m 



15 35 



A+, xB 



-(1x5) + (2x5) = 15 



The last coordinate of argument A is the same length as the first coordinate 
of argument B. (If both are matrices, the column coordinate of argument A 
is the same length as the row coordinate of argument B.) 



A<-3 2pl 23456 
B<-2 3p7 8 9 10 11 12 
A 



1 *> 




3 «* 




5 6 






B 


7 I 


8 9 


10 it. 12 




A+. xB 


27 


30/33 


61 


'&8 75 


95 


106 117 



(3x8) + (4x11) = 68 
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If argument A and argument B are N-rank arrays, the elements in each row of 
argument A are acted on by the elements in each plane of argument B: 



1 2 

3 "+ 

5 6 

7 8 



A<-2 2 2p\8 
A 



B«-2 2 2p8+\8 
B 



9 10 

11 .1.2 



13 14 
15 16 

A+.xB 

35 38 

'U i+M- 

79 86 
93 100 




.1.23 134 
14-5 156 

167 182 
197 212 
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Outer Product Operator ( o . ) 



mm 



The symbols for the outer product operator are o . . The outer product operator ) 

causes a specified primitive scalar dyadic function to be applied between argument A 
and argument B so that every element of argument A is evaluated against every ele- 
ment of argument B. The form of the function is: Ao ,(i)B, where(7)is a dyadic 
primitive scalar function. Arguments A and B can be any expressions. Unless 
argument A is a scalar, the shape of the result is the shape of argument A catenated 
to the shape of argument B. If argument A is a scalar, the shape of the result is the 
same as the shape of argument B: 









A<-2 










BM 2 


3 '+ 








A 




1 

Am 






B 




i 


1 

Ah 


3 


A« . xB 




A- 


1+ 


6 


8 

AM 2 
B<-3 i+ 
A 


3 
5 


1 

3 


2 


3 

5 


B 

A<> . xB 






3 


t 5 






6 


8 10 






9 


12 15 





The above example is the same as doing the following for each element in the result: 



3 

M- 

5 

6 

8 

10 

9 

12 

15 



1x3 
1XM- 

1x5 
2x3 
2xu, 
2x5 

3x3 
3xi+ 
3x5 
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Ill 



Ot 6 8 

L 9 £ 



g=i+i7- 



fr=t+£ 




e=i+2 



3=1+1 



£1 TT OT 
6 8 i 
9 S *l 




:sa|duiexa aJO|/\| 



Scan Operator (\) 



m 



The symbol for the scan operator is \. The forms of scan are:(f)\[l] B,0\B or 
(D\B, where©can be any scalar dyadic primitive function and argument B is a 
numeric vector or other array. The scan operator, like the reduction operator, 
operates on the elements of a single vector, and is the same as putting the primitive 
dyadic function between each of the elements. But the scan operator accumulates 
the results as the operation is repeated along the vector. The shape of the result is 
the same as that of the input argument: 




+\1 2 3 i+ 5 
1 3 6 10 15- 

+ 1 
i 

3 

6 

10 

15 



+ 1+2 
+1+2+3 
+ 1+2+3+1+ 
+ 1+2+3+I++5 



-This result is the same 
as doing the following for 
each element in the result. 






When argument B is a multidimensional array, the [I] index entry is used to specify 
the coordinate the scan is to proceed along. If the index entry is omitted, the last 
coordinate (columns) is acted on. If the© \B form is used, the first coordinate 
is acted on. 





B<-3 M-p\12 




B 


1 


2 3 4 


5 


6 7 8 


9 


10 11 12 




.». \ n it*. 


1 


2 3 M- 


6 


8 10 12 


15 


18 21 2M- 




+\C23B- 


1 


3 A 10 


5 


11 18 26 


9 


19 30 i+2 




+\B 


1 


3 6 10 


S 


11 18 26 


9 


19 30 i+2 




+\B 


1 


2 3 •+ 


6 


8 10 12 


15 


18 21 2M- 



The first coordinate (rows) is specified; therefore, 
the scan is between rows. 



The second coordinate (columns) is specified; 
therefore, the scan is between columns. 
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M-2 

A 

2 3 

6 7 

10 11 



3 «f*M24 

•+ 

8 

12 



13 
17 
21 

1 
5 
9 



1"+ 15 16 

18 19 20 
':>o '?~K ou. 

A.. A.. A.. W A„ T 

+\C13A- 
2 3 •+ 
6 7 8 
10 11 12 



■The first coordinate (planes) is specified; 
therefore, the scan operation is between planes. 



m 

'.■> o 

A.. A.. 

30 



1 

6 

15 

13 
30 
51 

1 

5 
9 



.1.6 18 20 

2M- 26 28 

32 3M- 36 

+\i::2::ia— 

2 3 M- 

8 10 12 

18 21 2i+ 



1M- 15 16 

32 34- 36 

5<+ 57 60 
+\C33A- 

3 6 10 

11 18 26 

19 30 1+2 



"The second coordinate (rows) is specified; 
therefore, the scan operation is between rows 
for each plane. 




■ The third coordinate (columns) is specified; 
therefore, the scan operation is between columns 
for each plane. 



13 
17 

21 



27 
35 
i+3 



'+2 
5i+ 
66 



58 
71+ 

90 
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SPECIAL SYMBOLS 
Assignment Arrow -*- | 7 | 

The assignment arrow causes APL to evaluate everything to the right of the arrow 
and associate that value with the name to the left of the arrow. For example, 
A+-2+3 means that 2+3, or 5, is assigned to the name A. When A is used in a later 
APL statement, it has a value of 5. 



Branch Arrow 



m 




QuadO 



The branch arrow is used for the following: 

• To change the order in which the statements are executed in a user-defined 
function. See Branching in Chapter 6 for more information on branching. 

• To resume execution of a suspended function (see Suspension in Chapter 7). 

• To clear the state indicator (see State Indicator in Chapter 7). 

i 



CD 



The quad is used to ask for input and to display output. To display output, the quad 
must appear immediately to the left of the assignment arrow. The value of the APL 
expression to the right of the arrow is assigned to the quad and will be displayed. 
For example: 



7 
12 



The 7 displayed is the value assigned to the quad. The 12 is the final evaluation of 
the APL expression. 

When used to ask for input, the quad can appear anywhere except to the immediate 
left of the assignment arrow. Execution of the expression stops at the quad and re- 
sumes when an expression is entered to replace the quad. When a quad is encountered, 
the quad and colon symbols (□ : ) are displayed to indicate that input is requested. 
For example: 



10 



25 x a 



See Chapter 6 for more information on quad input or output within a user-defined 
function. 
120 



Quad Quote Q 



(DGD 



The quad quote symbol is formed by overstriking the quote symbol » and the quad 
symbol Q. The quad quote operates the same way as the quad when requesting 
input, except that the data entered is treated as character data. For example: 

XHD 

CAN ' T ' 
X 

CAN ' T ' 

' CAN ' ' T * 
X 
' CAN * ' T ' 



Note: If a system command is entered for a quad quote input request, the system 
command is treated as a character string and will not be executed. 

See Chapter 6 for more information on quad quote input or output within a user- 
defined function. 



Comment p 



mm 



The comment symbol is formed by overstriking the n symbol and the ° symbol. 
The comment symbol must be the first nonblank character in a line and indicates 
that the line should not be executed. For example: 

7PLUSCD3V 

? one plus two 
i::i.:i a the purpose of this function is 
e2d nto add two numbers together! 
ii3ii one+two 

7 

12 PLUS 3M- 
M-6 
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Parentheses ( ) 

Parentheses are used to specify the order of execution. The order of execution is 
from right to left with the expressions in parentheses resolved (right to left) as they 
are encountered. For example: 



27 
I-I-2 



3+ Mx 6 




Note: When a value is assigned to a variable within parentheses and is used as the 
argument for a function, the value assigned to the variable is used by the function, 
regardless of any previous value assigned to the variable. For example: 



At- it 
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Chapter 5. System Variables and System Functions 



SYSTEM VARIABLES 

System variables provide controls for the system and information about the sys- 
tem to the user. These variables can be used by a function as arguments the same 
as any variable. 

The following is a list of the system variables and their meanings. A complete des- 
cription of each follows the list: 



Variable Name 


Meaning 


QCT 


Comparison tolerance 


QIO 


Index origin 


DPP 


Printing precision 


QPW 


Printing width 


QRL 


Random link 


QLC 


Line counter 


DWA 


Workspace available 


QLX 


Latent expression 


QAV 


Atomic vector 




Notes: 

1. To find the value assigned to a system variable, enter the variable name. The 
value assigned to the QCT, QIO, DPP, DPW, DRL, and DLX system variables 
can be changed by using the assignment arrow (+-). For example, entering 
DIO-0 assigns the value to the D'O system variable. 

2. The use of any system variable causes an entry to be made in the symbol table 
for that symbol. Therefore, if the symbol table is full, a SYMBOL TABLE FULL 
error is generated. 
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Comparison Tolerance: DCT 

The value of this variable determines the maximum tolerance (how different the two 
numbers must be to be considered unequal) when using any relational function and 
at least one argument is a noninteger. For example, two numbers are considered un- 
equal if the relative difference between the two numbers exceeds the comparison 
tolerance value. The following illustration shows how the comparison tolerance 
works with the relational functions: 



~) 



tQCTxA 




Value of argument A 
Real number line 



The relationship of 
any value (argument B) 
to argument A 



A>B 




Note: The DCT function considers any number in decimal form a noninteger. For 
example, 1000 is an integer and 1000. is a noninteger. 

The value of the comparison tolerance variable also affects the floor and ceiling 
functions. If an integer is in the range of the right argument plus or minus the 
comparison tolerance, the integer is the result. For example: 



3 
3 
3 
3 



DCT*- . ( 


1 3 




L2.98 
L 2. 9 6 




2.98 + .03 = 3.01 (The integer 3 is in the range of 

2.98 t .03.) 
2.96 + .03 = 2.99 


|"3.03 
f3.0M- 




3.03 - .03 = 3 (The integer 3 is in the range of 

3.03 + .03.) 

3.04 - .03 = 3.01 



In a clear workspace, the comparison tolerance value is set to 1 E~ 13 (see 
Chapter 3 for an explanation of scaled representation). 
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Index Origin: []IO 

The value of this variable determines the index origin. The value can be either 
or 1, which means that the first component of a vector or array is indexed with 
a or 1, depending on what the value is set to. In a clear workspace, the value 
is set to 1 . 

The functions affected by index origin are indexing ([]), index generator (t), 
index of (x), roll (?), deal (?), grade up {fa), and grade down (f ). 



a. TOO 

1 2 3 "I- \ 1 ? 3 4 
„ .. ... The index values represented by the 

\, ~ y ., r . result start from rather than 1 . 

.$■<:> S 4 5 

1 2 3 

\4 

12 3 

O.i'.o*:i. 



Note: All other examples in this manual are shown with the index origin set to 1. 



Printing Precision: QPP 

The value of this variable determines the number of significant digits displayed for 
decimal numbers and for integers with more than 10 digits. The value of this var- 
iable does not affect the internal precision of the system. The value can be from 
1 to 16. In a clear workspace, the value is set to 5. This means that the number 
of significant digits displayed for decimal numbers or for integers with more than 
10 digits is limited to 5 and scaled representation (see Chapter 3) is used (if re- 
quired). For example: 

Decimal Number Examples 

Five digits are displayed and the 
least significant digit is rounded off. 






12345.6 


.1. 
:l. 
1 


2346* 

12345.67 
2346 

123456.7 
. 2346E5 


1 

1 


1234567890 
234567890 

12345678901 
.2346E10 



Integer Examples 
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Print Width: DPW 

The value of this variable determines the length of the output line for both the ■- — \ 

display and printer. The value can be from 30 to 390. In a clear workspace, ) 

the value is 64. If this variable is set to a value greater than the length of one 
line across the display or printer, the output will overflow onto the next line. 



Random Link: QRL 

The value of this variable is used in generating random numbers. The value can 
be from 1 to 2 31 -2. In a clear workspace, the value is 7*5 (16807). This value 
is changed by the system each time a random number is generated. 



Line Counter: Q LC 

This variable is a vector. The first element is the function statement number 
currently being executed. The next element is the number of the statement 
(in another function) that invoked the function being executed. The remaining 
elements follow the same pattern. The user cannot set this variable but can dis- 
play it. Attempts to modify QLC are ignored by the system. For more informa- 
tion on QLC, see Chapter 7. 



Workspace Available: QWA 

The value in this variable indicates the amount of unused space (the number of 
unused bytes) in the active workspace. The user cannot set the value for this 
variable but can display it. Attempts to modify QWA are ignored by the system. 



Latent Expression: DLX 

A character vector assigned to the latent expression variable is automatically 
executed as an expression by the execute (i) function when a stored workspace 
containing the latent expression is loaded into the active workspace. 

Uses of the latent expression variable include the form QLX-«-'G', where a func- 
tion named G is executed when the stored workspace is made active. The form 
DLX«-'"MESSAGE WHEN WORKSPACE IS MADE ACTIVE'" displays the mes- 
sage MESSAGE WHEN WORKSPACE IS MADE ACTIVE when the stored work- 
space is loaded into the active workspace. 



Atomic Vector: DAV 

The atomic vector is a 256-element vector that includes all possible APL charac- 
ters. The following example shows it can be used to determine the indices of any 
known characters in the vector (assuming QIO is 1): 



DAV\ 'ABC 
87 88 89 
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Appendix D contains a list of the characters in the atomic vector. The most com- 
mon use of the atomic vector is for generating line feed and cursor return charac- 
ters to arrange output. The following example shows how the atomic vector can 
be used to generate these characters. 

The function called NAMES will display your first and last name. Each name will 
start at the left margin and each character in the name will be one line lower than 
the previous character: 



VNAHESCD3? 
V A NAMES B ; OUT PUT ; I ; J ; 1 
CI 3 01 0*1. 
1123 J*-<p,B> + I<-p,A 

C33 ft STATEMENT 5 CATENATES THE ARGUMENTS TOGETHER 
CM- 3 HAND ALSO PUTS A BLANK CHARACTER BETWEEN EACH CHARACTER 
CS3 OUTPUT*- <<2x J )p 1 0>\<,A>, (,B) 

C63 ^STATEMENT 8 PLACES A LINE FEED CHARACTER ( DAVC1603 ) 
C73 ft IN EACH BLANK ELEMENT OF OUTPUT 
C 8 3 OUT PUT C 2 x * J ••- 1 1 <-rjA V C 1 6 3 

C93 flSTATEMENT 11 PLACES A CURSOR RETURN CHARACTER <DAVC1573 > 
C10 3 ft AFTER THE FIRST NAME 
I'.'. 1 13 0UTPUTC2X 1 3<fJAVi: 1573 

C123 ftNOW WHEN THE CHARACTER VECTOR OUTPUT IS DISPLAYED, 
CI 3 3 ft A PL RESPONDS WITH THE APPROPRIATE ACTION WHEN A LINE 
Cli+3 ftFEED CHARACTER (DAVC160 3) OR CURSOR RETURN CHARACTER 
C153 ft<nAVi:i573) IS ENCOUNTERED IN THE CHARACTER STRING 
C1A3 OUTPUT 



'VIRGINIA' NAMES 'WINTER* 
V 
I 
R 
G 
I 
N 
I 
A 
W 
I 
N 
T 
E 
R 




127 



SYSTEM FUNCTIONS 



System functions are used like the primitive (built-in) functions; they are monadic 
(one argument) or dyadic (two arguments) and have explicit results. 

Following is a list of the system functions and their meanings. A complete des- 
cription of each follows the list: 



J 



System Function 

□CR name 

QFX name 

□EX name 

□NL class 

character QNL class 

QNC name 



Meaning 

Canonical representation 

Fix 

Expunge 

Name list 

Name list beginning with the specified character 

Name classification 




The OCR Function: Canonical Representation 

The []CR function formats a user-defined function into a character matrix. This 
function is monadic (takes one argument); the argument for the QCR function 
must be a scalar or vector of characters representing the name of an unlocked 
user-defined function. For example, you have the following user-defined function: 





V R<-INTG A 


CI 3 


R<-ApQ 


C23 


I<-1 


C33 


START :RCI3*-A 


C4 3 


I <- 1 + 1 


C53 


-»<I<A>/STARTV 



The function INTG is used to create a vector whose length and contents are spe- 
cified by the input argument: 



INTG 4 
'+ 4- '+ M- 

INTG 7 
7 7 7 7 7 7 7 
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To format the function INTG into a character matrix and assign the matrix to a 
variable named VAR, the following instruction would be entered: 



VAR*-DCR 'INTG" 



VAR is displayed as follows: 



VAR 
RMNT6 A*- 
R«-ApO 
K-.1. 



start :ri::i::k-a 
•ki<a)/start 

pVAR — 
6 12 



-First row is line of the function. 



■Indicates VAR is a 6-row, 12-column matrix. 



Notice that the line numbers are removed along with the opening and closing V. 
Also, labels within the function are aligned at the left margin. 

Now matrix VAR can be changed by simply indexing the elements: 



VARCM-;123f-'I'- 

VAR 
R<-INTG A 
R<-ApO 

start :Rr::i::i<-i 

•XI::; A) /ST ART 



The element in row 4, column 12 
is changed to I. 



To format a matrix created by the []CR function into a user-defined function, use 
the DFX function. The DFX function is discussed next. 



/"" 



The DFX Function: Fix 

The DFX function forms (fixes) a user-defined function from a character matrix 
(that was most likely formed using the DCR function). This function is monadic 
(takes one argument); the argument for the DFX function is the name of a matrix 
to be formed into a user-defined function. If an error is encountered (invalid char- 
acter, missing single quote, etc) as the matrix is being formed into a user-defined 
function, the operation is interrupted, the number of the row in error minus one 
is displayed, and no change takes place in the active workspace (the user-defined 
function is not formed). 
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To show how the DFX function works, we will use the matrix created in the pre- 
vious example (see the QCR function). To form matrix VAR into a user-defined 
function, the following instruction would be entered: 



D 



INTG- 



OFX VAR APL responds with the name of 

the user-defined function. 



The DFX function produces an explicit result (the array of characters that repre- 
sents the name of the user-defined function), and the original definition of the 
user-defined function (if there was one) is replaced. 



Now the function INTG can be displayed and executed: 





VINTGCD3V 




V R«-INTG A 


C13 


R<-ApO 


C23 


K-l 


C33 


START: R CI J <- 1 


i:m::i 


I«-I + l 


C53 


-K I < A) /START 




V 




INTG 5 


1 2 


3 •+ 5 




INTG 8 


i 2 


3 '+ 5 6 7 8 



Following is an example that shows how the DCR and DFX functions can be 
used to modify the definition of a function within another function. This 
example will use the following user-defined function: 



VINTGCCPV 
V R*INTG A 
CI 3 R<~ApO 
C2:3 1*1 
C33 START :R CI 3*- A 
CM-3 I*-I + l 
C53 +<I<A)/START 



INTG •+ 
•+ •+ M- M- 
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Format the function into a matrix: 



mh:icr 
r<-:i:ntg a 

R*-A-pO 

:i>1 

start: rcid<-a 

I*-I + l 

•XI::; A) /START 



INTG 



-Canonical Representation 



Now, define a function called CHANGE, which, when performed, will execute a 
modified version of INTG. 

/INTG is made a local function so that the 
global version will not be change (the local 
» ,.,. ■n.. [U i_ , ...... i w , . version will not exist after the execution of 

CHANGE is complete). 

-Assign the explicit result of the QFX function 
to Y so that it will not be displayed. 

Execute the modified version of INTG. 



m 




Mi:'i;:i 


23*-' I ' 


1:2:1 




YH1FX 


M "--^ 


1:3:1 


V 


INTG 


l+Vy 



INTG M- 
1+ n. 1+ 1+ 

CHANGE 
12 3 1+ 

INTG '+ 
i.|. 14 14. i+ 



■ Execute INTG. 
• Execute CHANGE. 
•Execute INTG again. 
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The QEX Function: Expunge 



The QEX function erases global objects or active local objects specified by the 
argument from the active workspace (unless the object is a pendent or suspended 
function). This function is monadic (takes one argument); the argument must be 
a scalar, vector, or matrix of characters. 




Thus, if object AB is to be erased, the following instruction would be entered: 
DEX "AB* 



Note: Even after the object is erased, the name remains in the symbol table (the 
part of the active workspace that contains all of the symbols used). 

The QEX function returns an explicit result of 1 if the object is erased and a 
if it is not erased or if the argument does not represent a valid name. When the 

□ EX function is applied to a matrix of names (each row represents a name), the 
result is a logical vector (zeros and/or ones) with an element for each name. The 

□ EX function is like the (ERASE command, except that it applies to the active 
referent (see Chapter 6, Local and Global Names) of a name. 

Note: If the object being expunged is a shared variable (see Chapter 8), it will 
be retracted. 



The □NL Function: Name List 

The QNL function yields a character matrix; each row of the matrix represents 
the name of a local (active referent) or global object in the active workspace. 
The ordering of the rows has no special significance. The □NL function can be 
either monadic (takes one argument) or dyadic (takes two arguments); in both the 
monadic and dyadic forms, the right argument is an integer, scalar, or vector that 
determines the class(es) of names that will be included in the result. The values 
for the input argument and associated classes of names are: 

Argument Name Class 

1 Names of labels 

2 Names of variables 

3 Names of user-defined functions 

It does not make any difference in what order the class of names appears in the 
argument. For example, □NL 2 3 or QNL 3 2 results in a matrix of all the vari- 
able and user-defined function names. 

In the dyadic form, the left argument is a scalar or vector of alphabetic charac- 
ters that restricts the names produced to those with the same initial character 
as that of the argument. For example, 'AD' QNL 2 results in a matrix of all 
the variable names starting with the character A or D. 
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Uses of the QNL function include: 

• Erasing objects of a certain class (and also beginning with a certain character). 
For example: 

HEX 'B' QNL 2 

erases all the variables whose names start with B. 

• Avoiding the choice of a name that already exists. 

The QNC Function: Name Classification 

The QNC function is monadic (takes one argument); the argument is a scalar or 
array of characters. The result of the function is a vector of numbers represent- 
ing the class of the name given in each row of the argument. The classes of names 
are as follows: 

Result Meaning 

Name is available for use 

1 Name of a label 

2 Name of a variable 

3 Name of a function 

4 Name is nonstandard (not available for use) 
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Chapter 6. User-Defined Functions 



APL provides an extensive set of primitive functions; nevertheless, you may want 
a function to solve a special problem. APL provides a way to create a new func- 
tion, called function definition. During function definition, you use existing APL 
functions to create new functions called user-defined functions. 

Normally, the 5100 is in execution mode; that is, after a line has been entered 
and the EXECUTE key pressed, the 5100 executes that line. To define a func- 
tion, the mode must be changed to function definition mode; after the function 
is defined, the mode must be changed back to execution mode before the func- 
tion can be executed. The mode is changed by entering the V (del) symbol. The 
first V changes the mode to function definition mode; the second V indicates the 
end of function definition and changes the mode back to execution mode. 




MECHANICS OF FUNCTION DEFINITION 

The following steps are required to define a new function: 

1. Enter a V followed by the function header (see Function Header in this 
chapter). After the function header is entered, APL responds with a 
[1] and waits for the first statement of the function to be entered: 



VHOME SCORE VISITOR (function header) 



li::i 



Enter the statements that define the operations to be performed by the 
function. As each line is entered, APL automatically responds with the 
next line number: 





V 


HOME 


SCORE 


VISITOR 


i: i :i 




' THE 


FINAL 


SCORE IS: 


C23 




+/H0ME 




C33 




" TO ' 






ci::i 




+/VI« 


5IT0R 





Note: During function definition mode, the print width (see QP\N system vari- 
able in Chapter 5) is automatically set to 390. The print width returns to its 
original value when the function is closed. This prevents problems that occur 
when editing statements that exceed the print width. Editing statements are 
discussed later in this chapter. If a user-defined function contains a statement 
that is greater than 115 characters in length, that statement cannot be edited and 
the function cannot be written on tape. (See QCR and QFX in Chapter 5 for 
information on changing a user-defined function to a matrix.) 
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Enter another V when the function definition is complete. The closing V 
may be entered alone or at the end of a statement. For example: 



i:'i::i •♦•/visitor? 

or 
[53 V 



Note: If the closing V is entered at the end of a comment statement, which 
begins with a a symbol, the V will be treated as part of the comment and 
the function will not be closed. 



Function Header 

The function header names the function and specifies whether a function has no 
arguments (niladic), one argument (monadic), or two arguments (dyadic). 

Note: Function names should not begin with SA or TA, because SA and TA are 
used for stop and trace control (Stop Control and Trace Control are discussed 
later in this chapter). 

The function header also determines whether or not a function has an explicit 
result. If a function has an explicit result, the result of the function is tempor- 
arily stored in a result variable (names in the function header) for use in calcula- 
tions outside the function. The result variable must be included in the result 
statement (the statement that determines the final result of the function) as well 
as the function header. For example: 



V RESULRX PLUS Y 
RESULTt-X+YV 
3 PLUS*V 



Result Variable 





The result of the function is 
J. + 3 PLUS M- - *"" temporarily stored in the re- 

1 7 suit variable so that it can 

be used by another function. 

User-defined functions that do not have an explicit result cannot be used as part 
of another expression. For example: 

V X PLUS.1. Y 

i::i.:i X + YV 

10 + 3 PLUSl M. 
7 
VALUE ERROR 

10+3 PLUS1 '+ 
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The following table shows the possible forms of the function header: 



Number of 
Arguments 


Type 


Format of Header 


No Explicit Result 


Explicit Result 



1 
2 


Niladac 

Monadic 

Dyadic 


VNAME 
VNAME B 
VA NAME B 


VRHMAME 

V RENAME B 

V R«-A NAME B 



D 



There must be a blank between the function name and the arguments. Also, the 
same symbol cannot appear more than once in the function header; thus, 
Z<-FUNCTION Z is invalid. 



For user-defined functions, the order in which the arguments are entered is 
important. For example, assume that Z*-X DIVIDE Y represents a function in 
which Z is the result of Xt Y. Now if 20 DIVIDE 10 is entered, the result is 2. 
However, if 10 DIVIDE 20 is entered, the result is 0.5. 
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Branching and Labels 

Statements in a function definition are normally executed in the order indicated 
by the statement numbers, and execution terminates at the end of the last state- 
ment in the sequence. This normal order can be modified by branching. 

Branching is specified by a right arrow (->•) followed by a label (name) that speci- 
fies the statement that is to be branched to. For example, the expression 
-►START means branch to a statement labeled START. When assigning a label 
to a statement, the label must be followed by a colon (:) and must precede the 
statement. The colon separates the label from the statement: 



) C23 START :N«-N+1 



115 II +START 



In the previous example, the label START is assigned to the second statement in 
the function. In other words, START has a value of 2; however, if the function 
is edited and the statement is no longer the second statement in the function, 
START will automatically be given the value (or statement number) of the new 
statement. (See Function Editing later in this chapter.) 
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Labels are local to a function-which means they can only be used within that 
function. Following are some additional rules that apply to the use of labels: 

• They must not appear in the function header. 

• You cannot assign values to them. 

• They can be up to 77 characters in length. 

• They cannot be used on comments. 

• When duplicate labels or labels that duplicate a local name are used, the first 
use of the label or name is the accepted use. 

If the branch is to zero (-H)) or any statement number not in the function, the 
function is exited when the branch statement is executed. If the value to the right 
of the -*■ is a vector (for example, ->-L1,L2,L3), the branch is determined by the 
vector's first element. If the vector is an empty vector (there are no elements), the 
branch is not executed, and the normal sequence of statement execution continues. 
For example, the conditional branch ->-(l>N)/START is evaluated as follows: 

1. First, the condition (l>N) is evaluated; the result is 1 if the condition is 
true and if the condition is false. 

2. The result of step 1 is then used as the left argument for the compress 
(A/B) function: 

a. If the result of step 1 was 1, START is selected from the right argument 
and a branch to the statement labeled START is taken. 

b. If the result of step 1 was 0, nothing is selected from the right argument 
(an empty vector is the result) and the sequence of execution falls through 
to the next statement. 

Following are three examples of defining and using a function to determine the 
sum of the first N integers. Each function uses a different method of branching. 
Remember, the expression to the right of the -*• is evaluated and the result deter- 
mines to what statement the branch is taken: 





V S+SUM.L N 


i: i :i 


SH) 


C23 


:i>:l. 


1:3:1 


C H E C K : •♦ 1... A B E L x I < N-« 


ct :i 


LABEL:S<-S+I 


C53 


K-I + l 


i:6J 


■♦CHECK*? 






Branch to LABEL if l<N; otherwise, 
exit the function. 



SUM1 



15 
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':>■ 



V S<-SUM2 N 
S*0 
:i>.1. 



1 3 II CHECK : -> ( I > N ) / ■* Branch to (terminate the function) 

V\2 S+S + .I: or fall through. 

1:5:1 k-i+i 

161 •+CHECKV 



SUM2 



15 



V S*SUM3 N 
CI 3 8<-0 
C23 ]>Q 

i:3:i CHECK:S*-S+I 

i:m:i i*-i+i 

i: 5 :i ■* < I < N ) /CHECK V ■* Branch to CHECK or fall through. 



SUM 3 



15 



Several forms of the branch instruction are shown in the following table: 

Branch Instruction Result 

•H...ABEL Branches to a statement labeled LABEL 

••> Exits function 

•+LABEL.XX-Y Branches to LABEL or exit function 

-► < < X< Y ) , < X~Y ) , ( X> Y ) ) /LI > L2 > L3 Branches to L1, L2, or L3 

-» < L 1 * L2 ) I' 1 +X~ Y :i Branches to L1 or L2 

-* < X==Y ) /0 Exits function or falls through to next statement 




-*(X=Y)/LABEL 
■KX=Y)pLABEL 



Branches to LABEL or falls through 



Note: Branching will also work if a specific statement number is specified to the 
right of the -*■. For example, -►3 means branch to statement 3; or -H«-3xA means 
I is assigned the value of 3 times the value of A, and the value of I is then used as 
the branch to statement number. However, these forms of branching (using 
statement numbers instead of labels) can cause problems if the function is edited 
and the statements are renumbered. 



Local and Global Names 

A local name is the name of a variable or user-defined function that is used only 
within a particular user-defined function. A global name is the name of a variable 
or user-defined function that can be used within a user-defined function and can 
also be used outside of it. An example of the use of a local variable name would 
be the name of a counter used in a user-defined function (which is not required 
for any use outside the function). 
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To make a name local to a user-defined function, it must be contained in the 
function header. For example, the function header VZ«-EXAMPLE X;J;I estab- 
lishes the result variable Z, the argument X, and variables J and I as local variables. \ 

Notice that the local names, other than the result variable and arguments, follow V J 

the right argument (if any) and are preceded by semicolons. 

A local name can be the same as a global name (variable or user-defined function) 
or a local name in another function. However, any reference to the name local 
to the function will not change the values of any other global or local objects 
(variables or user-defined functions) or cause them to be used. 

After a user-defined function has executed, the following rules apply to the local 
and global variables used by the function: 

• Any value assigned to a local variable is lost. 

• If a local variable had the same name as a global variable, the value of the glo- 
bal variable remains unchanged. 

• If the value of a global variable was changed by the function, it retains the 
new value. 
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For example: 



LOO 10 

GLOBi-100 

VRESULH-EX AMPLE ; LOG ; X 
en LOO 50 
i::2:i X*-25 
i:3:i GLOB*- 10 
i: i! :i RESULTH.OC+GLOB+X V 

EXAMPLE 
85 

X-* X has no value after the function 

VALUE ERROR has executed. 

X 

A 

■ ,.w, The global value associated with this 

., « ,. * '' name was unchanged by the function. 

GLOB ■* The global value was changed by the 

% function, since GLOB was not made 

local name to the function. 
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Since the value of a local name disappears as soon as execution of the function 
finishes, the only time you can use or display the value of a local name is while 
the function to which it belongs is still executing, is suspended, or is pendent. 

Note: If a name is local to a function that calls another function, the value of 
that local name can also be used by the called function. 






A name local to a function that has not completed execution or that is suspended 
(see Chapter 7) will be inaccessible if the name is also local to a more recently 
called function. Putting it another way, the value of a name that you can use or 
display is always the most recent local value of the name. Of course, as execu- 
tion of the more recently called functions is completed, the next earlier value of 
each local variable will again be accessible. A name can therefore be said to have 
one active referent or value, and possibly several latent referents or values. For 
example: 



V DAN; XX 
cm XX* 100 
C2:i 'THE FUNCTION DAN GIVES XX THE VALUE" 

1:3:1 XX 

CM-.] 'AND CALLS THE FUNCTION DAVE" 
i:5.'.1 ,-DAVE 



161 

r?:i 

C83 



1: i :i 
1:2:1 

IZ1 

cm- 3 

C53 
161 

111 
un 



'WHEN DAVE IS THROUGH EXECUTING AND EXECUTION RETURNS'* 

"TO DAN, XX ONCE AGAIN HAS THE VALUE' 

XXV 



DAVE; XX 
XX<-20 

'THE FUNCTION DAVE GIVES XX THE VALUE' 
XX 

'AND CALLS THE FUNCTION JERRY' 
r- JERRY 

'WHEN JERRY IS THROUGH EXECUTING AND EXECUTION RETURNS '-n 



' TO 
XXV 



DAVE, XX ONCE AGAIN HAS THE VALUE 



V JERRY; XX 
Cm XX*-30 

C2.:i 'THE FUNCTION JERRY GIVES XX THE VALUE' 
C33 XX 
CM-:i 'AND RETURNS TO DAVE 'V 
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DAN 
THE FUNCTION DAN GIVES XX THE VALUE 
100 

AND CALLS THE FUNCTION DAVE 
THE FUNCTION DAVE GIVES XX THE VALUE 
20 

AND CALLS THE FUNCTION JERRY 
THE FUNCTION JERRY GIVES XX THE VALUE 
30 

AND RETURNS TO DAVE 

WHEN JERRY IS THROUGH EXECUTING AND EXECUTION RETURNS 
TO DAVE, XX ONCE AGAIN HAS THE VALUE 
20 

WHEN DAVE IS THROUGH EXECUTING AND EXECUTION RETURNS 
T O DAN, XX O N C E A G A I N H A S T H E V A L U E 
1 

XX 
VALUE ERROR 
XX 



The )SIV command causes the SIV list (state indicator with local variables and 
local user-defined functions listing) to be displayed. The SIV list contains a com- 
plete set of referents of a name. 

Note: See System Functions in Chapter 5 for an example of a local user-defined 
function using the DFX system function. 

If the SIV list is scanned downward, the first occurrence of a variable name is its 
active referent. If the name appears again, it is a latent referent. Global names 
are not found in this list; they can be displayed with the )VARS command and 
)FNS command. 

In the following SIV display, variable P has referents as follows: 



)SIV 
GC7 3 *Z X I 

F II '•(• 1 P J -• Active referent of P is local to function F. 

SC33 *C X T 

R r '^* "I P-* ^ irst latent referent of P 

0r3"i Z X T is local to function R. 



As the state indicator is cleared (see Chapter 7), latent referents become active. 
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INTERACTIVE FUNCTIONS 

User-defined functions can display messages and/or request input from the key- A 

board. The messages (character data) in the user-defined function are enclosed in J 

quotes. The □ (quad) and Q (quad quote) symbols are used to request input from 
the keyboard during function execution. The following function is an example of 
an interactive function that computes the amount of interest on a capital amount 
for a given number of years: 



V CI 

m 'ENTER THE CAPITAL AMOUNT IN DOLLARS 

C2:3 AHJ 

i:3:i 'ENTER THE INTEREST IN PERCENT' 

C'+n I m 

C53 'ENTER THE PERIOD IN YEARS' 

161 Yf-0 

i:?:i 'THE RESULT IS' 

181 Ax (1+0 . 0lxl)*YV 



CI 
ENTER THE CAPITAL AMOUNT IN DOLLARS 
U- 

1 
ENTER THE INTEREST IN PERCENT 
Q: 

8 
ENTER THE PERIOD IN YEARS 

Q: 

2 
THE RESULT IS 
116,61+ 

CI 
ENTER THE CAPITAL AMOUNT IN DOLLARS 

1 
ENTER THE INTEREST IN PERCENT 
D : 

8 , 88 
ENTER THE PERIOD IN YEARS 

D : 

5 
THE RESULT IS 
1530.2 
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Requesting Keyboard Input during Function Execution 

The D (quad) appearing anywhere other than immediately to the left of the assign- 
ment arrow indicates that keyboard input is required. When the Q is encountered 
in the function, the two symbols Q: (a quad symbol followed by a colon) are dis- 
played, the display is moved up one line, and the cursor appears. The quad and 
colon symbols are displayed to alert the user that input is required. Any valid 
expression entered at this point is evaluated and the result is substituted for the 
quad. You can escape from a quad input request by entering the right arrow -\ 

An invalid entry in response to request for input results in an appropriate error 
message and the request for input is made again. Any system commands entered 
will be executed, after which the request for input will again be made. An empty 
input (no keying) is rejected and the 5100 again displays the symbols Q: and 
awaits input. 

When the quad quote Q (a quad overstruck with a quote) is used, input from the 
keyboard is treated as character data. The input begins at the left margin of the 
display; quotes do not need to be entered to define the data as character data. 
When H input is requested, the symbols Q: do not appear as they did with a Q 
input request. The input is entered after the flashing cursor appears on the screen. 
For example: 

XH3 
CAN ' T 

X 
CAN ' T 

XH3 
' CAN • ' T ' 

X 
' CAN ' ' T ' 



Anything you enter in response to a quad quote request for input is considered 
character input. Therefore, if you enter a system command or a branch arrow 
(-»■) to terminate the function, the entry is treated as character data for the 
function and the system command or branch will not be executed. This can be 
a problem if you are trying to escape from a quad quote input request. There- 
fore, APL provides an escape for this situation. To escape from a quad quote 
input request, enter the § symbol by holding the CMD key and pressing the 
f - \ key. The function is interrupted and the function name and the line num- 
ber being executed are displayed. You can then modify the function or termi- 
nate it by entering the right arrow -*■. 
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ARRANGING THE OUTPUT FROM A USER-DEFINED FUNCTION 

The output from user-defined functions can be arranged by using the format func- 
tion (see the v function in Chapter 4) or bare output. Bare output is discussed 
next. 
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Bare Output 



After normal output, the cursor is moved to the next line so that the next entry 
(either input or output) will begin at a standard position. However, bare output, 
denoted by the form H^X (X can be any expression), does not move the cursor 
to the next line. Therefore, more than one variable or expression can be displayed 
on the same line. For example: 



,.. ., .., 


V 


X TIMES 
IIH-X 


Y 


121 




I'M-' TIME 


S 


II 3:i 




Q*-Y 




CM-3 




UK-' IS ' 




H5:i 




XXYV 

2 TIMES 


i.|. 



2 TIMES '•!• IS 8 



Since the cursor does not return to the next line after bare output, when quad 
quote (H) input is entered following the bare output, the input starts after the 
last character of the bare output. Then when the input is processed, it is pre- 
fixed by any bare output on the input line. For example: 



V OUT PUT A IN PUT 
i::t:i EK-'THIS IS BARE OUTPUT!!!' 
C2:i a THE NEXT STATEMENT REQUEST El INPUT 
C33 INH3 
i:U-:i aNOU DISPLAY THE INPUT 7 

OUTPUT A INPUT 
THIS IS BARE OUTPUT !! \JT~ The cursor appears here. Now 

enter THIS IS H INPUT. 

THIS IS BARE OUTPUT !!! THIS IS D INPUT---. 

This is the final result. 
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Therefore, if quad quote input follows bare output (but only the input is to be 
processed), the bare output must be removed from the input line. Following is 
an example of a function that will remove the bare output: 

v r *• b a r e a u t p u t m s 6 ; □ 1 ; j 
i::i.::i qicx-i 

i:2:i Bf-MSG 

i:3:i n CHECK THE BARE OUTPUT FOR EMBEDDED CURSOR RETURNS 

1: "i- :i j <- '• .1. + ( * m s ) \ a v c i 5 ? :i 

i:5:i nDROP ANY BARE OUTPUT PREFIX FROM THE INPUT 
i:6.:i R<-<6MI J)UW 



This is how the function works: 



VOUTAIN ^ The Bare Output 

3 BAREAOUTPUT 'THIS IS BARE OljTPUT! ! ! ' 



1:2:1 V nL. 

OUTAIN 



"This function will remove the bare output. 



THIS IS BARE OUTPUT !! !_.*■ The cursor appears here. Now 

enter THIS IS H INPUT. 

THIS IS BARE OUTPUT !!! THIS IS D INPUT 

THIS IS D INPUT 

This is the final result. 



LOCKED FUNCTIONS 

A locked function can only be executed, copied or erased; it cannot be revised or 
displayed in any way, nor can trace control and stop control (see Trace Control 
and Stop Control later in this chapter) be changed. A function can be locked, or 
protected, by opening or closing the function definition with a V (Voverstruck 
with ~), instead of a V. 

When an error is encountered in a locked function, execution of that function is 
abandoned (not suspended). If this function was invoked by another locked 
function, execution of the second function is abandoned also, and so on, until 
either (1) a statement in an unlocked function or (2) an input statement is 
reached. Then DOMAIN ERROR is displayed. In the first case, the execution of 
the unlocked function is suspended at the statement; in the second case, the 5100 
waits for input. 

Note: A locked function cannot be unlocked; therefore, if the function contains 
an error, the function cannot be edited and the error corrected. 
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FUNCTION EDITING 

Several methods are used when in function definition mode to display and revise 
a user-defined function. Also, after a function definition has been closed, the 
definition can be reopened and the same methods used for further revisions or 
displays. (See Reopening Function Definition in this chapter.) 



Displaying a User-Defined Function 

Once in function definition mode, part or all of a user-defined function can be 
displayed as follows: 

• To display the entire function, including the function header and the opening 
and closing V , enter [Q]. APL responds by displaying the function, then wait- 
ing for the entry of additional statements. 

• To display from a specified statement to the end of the function, enter [Qn], 
where n is the specified statement number. APL responds by displaying the 
function from statement n to the end of the function, then waiting for the 
last statement displayed to be edited (see Editing Statements in this chapter). 

t To display only one statement of the function, enter [nQ], where n is the 
statement number to be displayed. APL responds by displaying statement n 
and waiting for the statement to be edited (see Editing Statements in this 
chapter). 

The following table summarizes function display when in function definition mode: 

Entry Result 

[nQ] Displays statement n 

[Qn] Displays all statements from n onward 

[Q] Displays all statements 

Revising a User-Defined Function 

Statements in a user-defined function can be replaced, added, inserted, deleted, or 
edited as follows: 

• To replace statement number n, enter [n] and the replacement statement. If 
just [n] is entered, APL responds with [n], then waits for the replacement 
statement to be entered. If the function header is to be replaced, enter [0] 
and the new function header. 

• To add a statement, enter [n] (n can be any statement number beyond the 
last existing statement number) and the new statement. APL will respond 
with the next statement number, and additional statements can be entered if 
required. 



J 
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To insert a statement between existing statements, enter [n] and the new state- 
ment, n can be any decimal number with up to 4 decimal digits. For example, 
to insert a statement between statements 8 and 9, any decimal number be- 
tween 8.0000 and 9.0000 can be used. APL will respond with another deci- 
mal statement number and additional statements can be inserted between 
statements 8 and 9 if required. (These and the following statements are auto- 
matically renumbered when the function definition is closed.) 

Note: The statement number 9999.9999 is the last valid statement number. 

To delete statement n, enter [An]. 

Note: The [An] and closing V cannot be entered on the same line. If the func- 
tion definition is to be closed immediately after a statement has been deleted, 
the closing V must be entered on the next line. 

To edit specific statement, use the following procedure: 

1. Enter [n[]] (where n is a statement number). Statement n is displayed. 

2. Choose one of the following options: 

a. To change a character, position the cursor (flashing character) at the 
character to be changed. Enter the correct character. 

b. To delete a character, position the cursor at the character to be 
deleted. Then press the backspace ( MB) key while holding the 

command (CMD) key. The character at the cursor is deleted from 
the line and the characters that were to the right of the deleted char- 
acter are moved one position to the left. 

c. To insert a character, position the cursor to the position where the 
character is to be inserted. Then press the forward space ( mmm ) 

key while holding the command (CMD) key. The characters from the 
cursor position to the end of the line are moved one position to the 
right. For example: [1] A<-1245 should be [1] A*-12345. Position 
the cursor at the 4 and press the forward space and command (CMD) 
keys simultaneously. The display will look like this: [1] A«-12_45. 
Now enter the 3. 

d. To delete all or part of a line, press ATTN to delete everything from 
the cursor position to the end of the line. 

3. Press EXECUTE. The next statement number is displayed. 

Note: If more than one statement number is entered on the same line, only the 

last statement number is used. For example, if a line contained 

[3] [8] [4] 'NEW LINE', only statement 4 is replaced when EXECUTE is pressed. 
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Reopening Function Definition 

If you want to edit a function that has previously been closed, the function defini- 
tion must be reopened. For example, if function R is already defined, the function 
definition for function R is reopened by entering V R. The rest of the function 
header must not be entered or the error message DEFN ERROR is displayed 
and the function definition is not reopened. The 5100 responds by displaying 
[n+1], where n is the number of statements in R. Function editing then pro- 
ceeds in the normal manner. 

Function definition can also be reopened and the editing or display requested on 
the same line. For example, VR[3]S«-S+1 edits the function by entering the new 
line 3 (S«-S+1) immediately. Then the 5100 responds by displaying [4] and 
awaiting continuation. The entire process can be accomplished on a single line: 
VR[3]S«-S+1 V opens the definition of function R, enters a new line 3, and termin- 
ates function definition. VR[Q]V causes the entire definition of R to be displayed, 
after which the 5100 returns to execution mode. 

Note: You cannot reopen the definition of a function, delete a statement, and 
close the function (for example, VR[A4]V) on the same line, since the closing V 
cannot be on the same line as the [An]. 



D 
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An Example of Function Editing 



In this example, the user-defined function AVERAGE is used to show how the 
methods used to revise and display functions work: 



V AVE RAGE X- 



CI 3 "THIS FUNCTION CALCULATES AVERAGES' 
^ AVERAGE 2 M- 6 8- 



THIS FUNCTION CALCULATES AVERAGES 



-Define the function. 



-Execute and test the function. 



7 AVE RAGE C 1 . 7 3 ' THE AVERAGE I S '— 

1: :l. . (3 J I! :l. Q 3 

CI. 3 'THIS FUNCTION CALCULATES AVERAGES'- 

i::i.II 'THIS FUNCTION CALCULATES AVERAGES AND SUMS' 

C23 i:3:i "THE SUM IS' ^ 

1:43 +/XV 



VAVERAGECD3V- 

V AVERAGE X 

i::l.3 'THIS FUNCTION CALCULATES AVERAGES AND SUMS' 
C23 "THE AVERAGE IS' 
C33 +/X*<+/X*X> 
i:i+:i "THE SUM IS' 
C53 +/X 

V 

AVERAGE 2 1+ 6 8 - 

THIS FUNCTION CALCULATES AVERAGES AND SUMS 
THE AVERAGE IS 



THE SUM IS 
20 

V AVE RAGE C33 +/X*pX- 

1: 4 3 1: A 1 3 - 



C23 C0 3AVERAGEASUM XV- 

V A V E R A G E A S U M C D 3 V - — 
V AVE RAGE ASUM X 
CI 3 'THE AVERAGE IS' 
C23 +/X+pX 
C33 "THE SUM IS' 

r.ii::i +/x 
? 

AVE RAGE ASUM 2 M- 6 8 
THE AVERAGE IS 



-Insert a statement. 
•Display statement 1. 



Statement 1 was edited 
to look like this. 

-Add statements 3 and 4. 



"Display the function. 



•Execute average. 



-Replace statement 3. 
"Delete statement 1. 
-Replace the function header. 
"Display the function. 




THE SUM IS 
20 

VAVERAGEASUM C0337- 
C33 "THE SUM IS" 
CM- 3 +/X 



-Display the function from 
statement 3 to the end. 
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TRACE AND STOP CONTROLS 



APL provides the ability to trace or stop execution of user-defined functions, pro- 
viding the functions are not locked (see Locked Functions in this chapter). 
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Trace Control 



Trace control is used to display the results of selected statements as a function 
executes. The display consists of the function name followed by the number and 
results of the selected statement. For example: 



-STEVE[1] 2- 



Function 
Name 



-Result 



Statement 
Name 



Statements to be traced are specified by a trace vector. The format of the trace 
control function is TA STEVE-H, where STEVE is the name of the function and 
I is the vector specifying the statement numbers to be traced. For example, if 
TA STEVE<-2 3 5 is entered, the statements 2, 3, and 5 are traced each time 
function STEVE is executed. TA STEVE*- 10 must be entered to discontinue 
the tracing of function STEVE. To trace each statement of the function, enter 
TA STEVEN N, where N is the number of statements in the function: 






VSTEVEEIIPV 




V STEVE I 


i: :i. ::i 


A*- 1.x 


i: 


i::2::i 


B<-2x 


i: 


i:3::i 
i:;ii::i 


C«-3x 
Eu-M-x 


i: 
i: 


E5II 


A+B+l 


::h.i 



V 



STEVE 



20 



STE 
STE 
STE 
STE 
20 



STE 
20 



20 



TASTEVE^'I- 
STEVE 2 ^ 

VEX 11 2 

■VEC23 M- 

VEIZ1 6 

VEE "-I!] 8 

TASTEVIE>2- 
STEVE 2 
VEC23 f 



"Trace the first four statements 
in function STEVE. 



-Trace statement 2 in function STEVE. 



TASTEVE«-\0 

STEVE 2 



-Discontinue tracing in function STEVE. 
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Trace control can also be set by statements within a function. These statements 
initiate tracing when a variable contains a certain value. For example: 

v_ J VSTEVECQUV 

V STEVE I 

i:j.:i a*ixi 

l'.:2::i TASTEVEK5XA-2-. Trace statement 3 in function STEVE 

C3D C*-3x.'[ when A equals 2. 

^ i::m:i lh-4x:i: 

j C53 A+C+D 

STEVE 2 
STEVEC3H 6 
16 

STEVE 3 



Note: The following instruction will establish trace control for the first statement 
of each user-defined function in the active workspace: 



i."ll, • ' > ' P ' , " T " , •&■,((( IIINL 3 ) .• •«-•), " 1 " ) 



This instruction can be used to find out what functions are called by another 
function. 

The following user-defined function named TRACE will establish a trace vector 
for each statement in a specified user-defined function: 



vtracei::i;i:iv 
v trace name 

I." :l. II i. ' TA ' , NAME , ' <- \ 1 1 pUCR ' ' ' > NAME 
V 
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When executing the function TRACE, the argument must be entered in single 
quotes. For example: 



23 
33 

'•1-3 
53 



VSTEVECIIPV 
STEVE I 
A* lx I 
B*2xl 
03X1 

i:m-m-x:i: 
a+b+c+d 
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TRACE 
STEVE 

TEVEC13 2 

TEVEC23 

TEVEC33 

tevei::m:i 

TEVEC53 



4- 
6 
8 



STEVE 



-Establish a trace vector for each 
statement in function STEVE. 

■ Each statement of function 
STEVE has been traced. 



20 




TASTEVEMO 



Stop Control 




Stop control is used to stop the execution of a function just before specified 
statements. At each stop, the function name and statement number of the state- 
ment to be executed next is displayed. The statements are specified by a stop 
vector. The format of the stop control function is SA STEVE-H, where STEVE 
is the name of the function and I is the vector specifying the statements. After 
the stop, the system is in the suspended state (see Chapter 7); execution is 
resumed by entering -*QLC ( see Chapter 5). SASTEVE*-iO (STEVE is the 
function name) must be entered to discontinue the stop control function. 



Stop control can be set by statements within a function. These statements 
initiate halts when a variable contains a certain value. For example, 
SA STEVE«-4xN>8 means stop before statement 4 in function STEVE when 
N is greater than 8. 

Trace control and stop control can both be used in the same user-defined 
function. 
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Chapter 7. Suspended Function Execution 



SUSPENSION 

The execution of a user-defined function can be interrupted (suspended) in a var- 
iety of ways: by an error message (see Chapter 11), by pressing ATTN (see 
Chapter 1), or by using the stop control vector (see Chapter 6). In any case, the 
suspended function is still considered active, since its execution can be resumed. 
Whatever the reason for the suspension, when it occurs, the statement number of 
the next statement to be executed is displayed. A branch to the statement num- 
ber that was displayed or a branch to DLC (->QLC, see Chapter 5) causes normal 
continuation of the function, and a branch out (-K)) exits the function. 

When a function is suspended, the 5100 will: 

• Continue to execute system commands except (SAVE, )COPY, and )PCOPY. 

• Resume execution of the function at statement n when -*n is entered. 

• Reopen the definition of any function that is not pendent. A pendent func- 
tion is a function that called the suspended function. If a function called a 
function that called a suspended function (and so on), it is also pendent 
(see State Indicator in this chapter). 

• Execute other functions or expressions. 

Note: The display of output generated by previous statements might have been 
interrupted when the suspension occurred. This would be caused by the delay 
between execution of the statement and the display of the output. 

STATE INDICATOR 

The state indicator identifies which functions are suspended (*) and at what point 
normal execution can be resumed. Entering )SI causes a display of the state indi- 
cator. Such a display might have the following form: 



)SI 

hi: 73 * 

G i:2:i 
FC33 



This display indicates that execution was halted just before statement 7 of func- 
tion H, that the current use of function H was invoked in statement 2 of function 
G, and that the use of function G was invoked in statement 3 of F. The * 
appearing to the right of H[7] indicates that function H is suspended; the func- 
tions G and F are said to be pendent. 
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During the suspension of one function, another function can be executed. Thus, 
if a further suspension occurred in statement 5 of function Q, which was invoked 
in statement 8 of G, a display of the state indicator would be as follows: 



QZ51 * 



D 



GC83 
HC73 
GC23 
FC33 



An SI DAMAGE error (see Chapter 11) indicates that a suspended function or 
pendent function has been edited and the normal execution of the suspended 
function can no longer be resumed. Therefore, when an SI DAMAGE error 
occurs, the state indicator display will not include the suspended function name 
(however, the asterisk is still displayed). For example, if function Q is edited 
and the modification causes an SI DAMAGE error, the display of the state 
indicator would be as follows: 



)SI 
qqj] No suspended function name is displayed. 

HC7D * 

Gi:2:i 

FC33 
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A suspension can be cleared by entering a branch with no argument (that is, -*). 
One suspended function is cleared at a time, along with any pendent functions 
for that suspended function. The first branch clears the most recently suspended 
function, as the following example shows: 



)SI 



HC73 
(3i:2!] 
FC33 



It is a good practice to clear suspended functions, because suspended functions 
use available storage in the active workspace. Repeated use of -► clears all the 
suspended functions; as the functions are cleared, they are removed (cleared) from 
the state indicator. When the state indicator is completely cleared, the state indi- 
cator display is a blank line. 

Note: To display the state indicator with local names, enter the )SIV command 
(see Local and Global Names in Chapter 6 for more information on the SIV list). 
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Chapter 8. Tape and Printer Input and Output 



3 



Input and output involving the tape or printer can be done with an APL shared 
variable, which is a specific variable shared between the active workspace and the 
tape or printer. During output operations, the data assigned to the shared variable 
is printed, or is written on tape. During input operations, data is read from tape 
and assigned to the shared variable; the shared variable can then be used in an ex- 
pression in the active workspace. To do tape or printer input or output, the 
following steps must be performed: 

1. Establish a variable to be shared. 

2. Open a data file on tape or specify printer output. 

3. Transfer the data. 

4. Close the data file or terminate the printer output. 

5. Retract the variable being shared. 



ESTABLISHING A VARIABLE TO BE SHARED 

The QSVO function is used to establish the variable name(s) to be shared. The 
□SVO function is dyadic (requires two arguments) and is entered as follows: 





The left argument must be a 1. 



The right argument NAME(S) can be up to eight variables to be shared. If more 
than one name is required, the names must be entered as a character matrix with 
each row representing a name. For example: 



SHARE*- 3 3p'0NETU0THR' 

SHARE 
ONE | 

1 WO (~* Each row represents a separate variable name. 

THR 
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Following are three examples of how the []SVO function can be entered: 

• :l. DSVO 'DATA' 

• A<-'DATA" 
1 DSVO A 

• SHARE*- 3 1 p ' ABC ' Establishes three names (A, B, 
1 DSVO SHARE and C) to be shared. 



The 5100 will respond with a 2 for each shared variable that is successfully estab- 
lished and a or 1 for each variable that is not. If a 1 is displayed, a value other 
than 1 was specified as the left argument for the QSVO function. In this case, the 
variable name must be retracted (see Retracting the Variable Name being Shared 
later in this chapter) and reestablished as a shared variable before it can be used 
for input/output. If a is displayed, an error message (see Chapter 1 1 ) will also 
be displayed. 

Note: The instruction +/0*QSVO []NL 2 will display the existing number of 
shared variables in the system, and the instruction (0*QSVO QNL 2)/[1] QNL 2 
will display the existing shared variable names. 



OPENING A DATA FILE OR SPECIFYING PRINTER OUTPUT 

The first value assigned to the shared variable must be information required to 
open a data file on tape or to specify printer output. When opening a data file, 
this information specifies the following: 

• Data to be transferred to tape or from tape 

• Device/file number 

• File ID 

• Data format to be used 

Note: If this information has already been assigned to a variable name that is 
being used as the right argument for the QSVO function, the 5100 will establish 
the variable name to be shared, then open the data file or specify printer output. 
In this case, there is no return code assigned to the shared variable to indicate if the 
operation was successful or not. The return codes are described later in this chapter. 



159 



This information must be character data (enclosed in single quotes) and must be 
entered with a blank between each parameter, as follows: 



name 



IN 
or 

OUT 
' or 
ADD 
or 
PRT 



device/file number [ID=Jfile_ID)] [MSGOFF] 



A 
or 
I 
TYPE=or 
11 
or 
12 



where: 

name is the name of the variable being shared. 

IN specifies that the data is to be transferred from tape into the active 
workspace. 

OUT specifies that the data is to be transferred to a tape file. 

ADD specifies that the data is to be transferred to an existing tape file, 
following the last record in that data file. 

PRT specifies that the data is to be printed. 

Note: When PRT is specified, the only other information that can be speci- 
fied is MSG=OFF (which is defined later). 

device/file number specifies the tape unit and file number. For example: 



D 



1003 



File Number 3 
•Tape Unit 1 



Note: If fewer than four digits are used, tape unit 1 is assumed, and the 
value entered represents only the file number. 

ID=(file ID) (optional) specifies from 1 to 17 characters enclosed in 
parentheses: 

• For an IN or ADD operation, the entry (file ID) is compared to the file ID in 
the file header; the open fails if they do not match. 

• For an OUT file, the entry (file ID) is put in the file ID field of the file header 
(see the (LIB command in Chapter 2). If the ID=(file ID) parameter is not 
specified, the characters DATA are put in the file ID field. 

It is a good practice to give the data files meaningful names; for example, a 
file that contains sales data could be named SALES. Also, any blanks within 
the 17 characters become part of the file ID. 

Note: To do an OUT operation to an existing data file (write new data 
over the existing data), the file ID specified must match the existing file 
ID for the data file. 
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MSG=OFF (optional) specifies that no error message is to be displayed for 
nonzero return codes (see Return Codes in this chapter). 

A 
or 
I 
TYPE=or (optional) can only be specified for OUT operations. It specifies the 
11 
or 
12 

data format to be used when writing data to tape: 

• When TYPE=A is specified, the APL internal data format is used; that is, 
the data is written on tape in the same format that it is stored in, in the 
active workspace. 

• When TYPE=I or TYPE=I1 is specified, the interchange data format is used. 
When the interchange data format is used, only character scalars or vectors 
can be assigned to the variable being shared. Therefore, when storing nu- 
meric data or arrays on tape using the interchange data format, the data 
must first be changed to a character scalar or vector (see the f function 

in Chapter 4). 

The following items apply to an interchange data file that is used by both 
the 5100 APL and BASIC languages: 

1. All data items must be separated by commas. For example, the numeric 
vector 13 5 6 must be changed to character data, then commas placed in 
the blank positions. 

2. Negative signs must be replaced by minus signs. 

3. Enclosing single quotes must be part of any data that represents character 
constants. Also, any embedded quotes in the character constant must be 
represented by double quotes. 

Note: The 5100 BASIC language accepts only the first 18 characters in 
each character constant. 

4. The 5100 BASIC language creates a logical record for each PUT statement 
or each row of an array with a MAT PUT statement. 

• When TYPE=I2 is specified, the general interchange data format is used; it 
is the same as TYPE=I (and TYPE 11) except that the data file can also be 
used as a BASIC language source file. 

Note: The data format can be specified only for an OUT operation. For IN 
or ADD operations, the data format is specified by the data file type (see 
)LIB command in Chapter 2). If the data format is not specified for an OUT 
operation, the APL internal data format (TYPE=A) is used. 

CAUTION 

If the tape cartridge is removed from the 5100 when an OUT or ADD file is 
open, the file will be unusable. See Closing a Data File or Terminating the 
Printer Output in this chapter for information on how to close a data file. 
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The following four examples, using an APL shared variable named EXAMPLE, 
show how the information required to open a data file or specify printer output 
can be entered: 



1. EXAMPLE*-' 



IN 1001 ID=(TEST) 



L 



The value TEST will be compared 
to the file header field. 



File 1 on tape unit 1 is to be opened. 

-Data is to be transferred from tape 
into the active workspace. 



D 



2. EXAMPLE*- "OUT 03 ID=(TEST2) TYPE=I ' 

•-Interchange data format 
is to be used. 

The value TEST2 will be placed 

in the device header field. 

' File 3 on tape unit 1 (assumed) is to be opened. 



-Data is to be transferred to tape 
from the active workspace. 



3. EXAM PLE*-' ADD 3 



L 



File 3 on tape unit 1 (assumed) is to be opened. 



-Data is to be transferred into an existing file on tape. 



Note: Since the file ID was not specified, no value is compared to the file 
header field. 



EXAMPLE*- ' PRT MSG-OFF 



L 



No error messages will be displayed 
for nonzero return codes. 

-Data is to be printed. 



After the information has been entered, a code (2-element vector) that indicates 
whether the operation was successful or not is assigned to the shared variable. A 
return code of indicates the operation was successful, and a nonzero return 
code indicates that the operation failed. See Return Codes in this chapter for a 
description of each return code. 
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TRANSFERRING DATA 

After the data file has been opened or printer output specified, data can be trans- 
ferred using the shared variable. (An example using tape and printer input/output 
is shown later in this chapter.) 



Transferring Data to Tape (OUT or ADD Operation) 

When data is assigned to the shared variable, the data is written on tape and a 
return code is assigned to the shared variable. A return code means the data 
was transferred successfully and a nonzero return code means the transfer of 
data failed. See Return Codes in this chapter for a description of each return code. 



Transferring Data from Tape (IN Operation) 

When data is transferred from tape, the data is read from tape and is assigned to 
the shared variable in the same sequence as it was written to tape. New data is 
read from the tape file and assigned to the shared variable each time the shared 
variable is used. (There is no return code assigned to the shared variable after an 
IN operation.) 

When doing an IN operation with an interchange data file, the following condi- 
tions occur if a cursor return character (X'9C) or end-of-block character (X'FF') 
was embedded in a character vector that was written to tape: 

• If a cursor return character was embedded in the character vector, the data 
will be read from tape in a different sequence than it was written to tape. 
This condition occurs because as the interchange data is written to tape, the 
system writes an end-of-record character (X'9C) after each character vector 
(record) that was written to tape. The end-of-record character and the cursor 
return character are the same. When used on tape, this character separates the 
data (records) so that it can be read from tape in the same sequence as it was 
written to tape. However, if a cursor return character is embedded in the data 
that was written to tape, the system will recognize it as an end-of-record char- 
acter when the data is read from tape. 

• If an end-of-block character was embedded in the character vector, any data 
from the embedded end-of-block character to the next physical record is not 
read from tape. This condition occurs because the system looks at the tape in 
512-byte segments (one physical record). A physical record can be terminated 
by an end-of-block character (X'FF'). When the system is reading data from 
the tape and an end-of-block character is encountered, the system skips to the 
next physical record and continues reading data. Therefore, if an X'FF' char- 
acter is embedded in the data that was written to tape, the system recognizes 
it as an end-of-block character when the data is read from tape and skips 
ahead to the next physical record. 
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Transferring Data to the Printer (PRT Operation) 

lared variable, it is Drinted 





When data (character data only) is assigned to the shared variable, it is printed 
and a return code is assigned to the shared variable. A return code indicates 
the data was printed successfully and a nonzero return code indicates the opera- 
tion failed. See Return Codes in this chapter for a description of each return code. 




Note: The )OUTSEL OFF command is automatically issued by the system when 
doing PRT operations. The )OUTSEL option will return to its previous setting 
after the PRT operation has been terminated (PRT termination is discussed next). 



CLOSING A DATA FILE OR TERMINATING THE PRINTER OUTPUT 

Transferring an empty vector will close the data files or terminate the printer out- 
put and a final return code will be issued. A return code indicates the file 
was closed or printer output was terminated successfully. See Return Codes in 
this chapter for a description of each return code. Also, for an IN operation, the 
file is closed and a return code is issued if an error occurs due to the device or if 
an end-of-file empty vector is returned. 

CAUTION 

For OUT and ADD operations, if the tape cartridge is removed from the 5100 
before a data file is closed, the data in the file will be unusable. 

After a data file has been closed, another data file can be opened by assigning 
the information required to open a file to the shared variable. Once the tape and 
printer input and output operations are done and the data files are closed or print- 
ing is terminated, the variable name being shared should be retracted. How to re- 
tract the variable name is discussed next. 



RETRACTING THE VARIABLE NAME BEING SHARED 

The DSVR function is used to retract a variable name being shared. That is, once 
the OSVR function has been used successfully, the variable name still exists as 
an APL variable, but it cannot be used to transfer data to tape or printer, unless 
it is reestablished as a shared variable. The QSVR function is monadic (takes one 
argument) and is entered as follows: 

DSVR 'NAME<S)' 

where NAME(S) can be the names of up to eight variables. If more than one name __V 

is required, the names must be in a character matrix with each row representing a 
name (see Establishing a Shared Variable earlier in this chapter). 

The 5100 will respond with a 2 (or a 1 if the left argument for the QSVO func- 
tion was not a 1 —see Establishing a Variable to be Shared in this chapter) for each / ~x 
variable name that is successfully retracted and a for each variable name that is v ) 
not successfully retracted. Normally, if a variable name cannot be successfully 
retracted, it was never properly established as a shared variable. 

Note: If the DSVR function is used before a file is closed, the system will auto- 
matically close the file. , ~\ 



U 
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RETURN CODES 

Return codes assigned to the shared variable when doing input/output operations 
indicate whether or not the operation was successful. If the return code is non- 
zero and MSG=OFF was not specified, an error message is also displayed. 

Operation of the system does not stop when a nonzero return code is assigned. 
Therefore, if you have a user-defined function that is doing input/output opera- 
tions, the user-defined function should check the return code that was assigned 
to the shared variable to make sure each operation is successful. 

Following is a description and/or user's response for each return code and error 
message: 



Code Error Message 
00 

1 

2 INVALID FILE 



3 INVALID DEVICE 
or 
INVALID DEVICE NUMBER 



Description and/or User's Response 

Operation successful. 

Device error; the second element 

is the error code (see 

ERROR eee ddd in Chapter 11). 

The specified file cannot be used 
for input/output operations. 

Enter the information required to 
open the file again, using device 
number 1 or 2. 



4 INVALID FILE NUMBER 



Enter the information required to 
open the file again, using a valid 
file number. 



5 NOT WITH OPEN DEVICE 



The specified device is already being 
used for input/output operations; 
the existing open file must be closed 
before another file can be opened. 



6 INVALID PARAMETER 



7 WS FULL 



The information required to open 
the file was entered incorrectly; 
enter it again, correcting any key- 
ing errors. 

Use the )ERASE command to erase 
any unwanted objects; then enter 
the information required to open 
the file again. 



8 DEVICE NOT OPEN 



Open the file. 
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Code Error Message 
90 



10 EXCEEDED MAXIMUM 
RECORD LENGTH 



Description and/or User's Response 

This return code is only a warning; 
an empty vector was read from tape, 
but the empty vector is not the 
end-of-file empty vector. 

This error was probably caused by 
the tape being removed before the 
file was closed. The remaining data 
in the file cannot be read. 



o 



11 INVALID DATATYPE 



The wrong type of data was used; 
for example, noncharacter data was 
sent to an interchange file, non- 
character data was used as the in- 
formation required to open a file, 
or noncharacter data was sent to 
the printer. 



AN EXAMPLE USING TAPE AND PRINTER INPUT/OUTPUT 

In this example, file number 11 on tape unit 1 will be used as a data file. First, 
a variable name must be established to be shared and the data file opened so that 
data can be written to the file (OUT operation): 



Oil 



0^ 




)LIB 11 
1 DSVO 



/ 



-File 11 is an unused file. 



SHARE 



01 ^ Establish a variable name 

to be shared. 



^ 



■ Open the data file. 



SHA RE*- " OUT 1 1 .1. I D= < I NVENTO R Y ) 



SHARE- 

"The file was opened 
successfully. 



— Check the return code 
that was assigned to 
the shared variable. 
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Now, as data is assigned to the shared variable, it is transferred (written) to the 
data file: 

SHARE*-' 2^5630 SCREW 5000" 

SHARE 


SHARE*- ' 2M-56M0 HUT 70 ' 

SHARE 
) 

SHARE* "21+56550 WASHER 50' 

SHARE 


SHARE* '535780 CIRC BD 10" 

SHARE 


SHARE*- 1 -* After all the data has been transferred, 

SHARE the file must be closed. 





If more data is to be added to an existing data file but the file is closed, a vari- 
able name must be established to be shared and the data file opened again: 

Note: In this example, the variable name SHARE has not been retracted and can 
still be shared. 



--Open the data file again. 

SUA RE*-' ADD 1011 ID= < INVENTORY > ' 
SHARE 







S H A R E *• ' 5 3 5 7 9 5 B A R D 

B H A R E N T hese records are added 



b \ 



.... , y following the existing 

SHARP records in the file 







o 



SHARE*- \ The file is closed. 

SHARE 



Since no more data is to be written on tape, the shared variable should now be 
retracted : 



DSVR 'SHARE 
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Now, assume that at a later time you want to read the data from file 1 1 and 
print it on the printer, using the following user-defined function: 

VPRINTCHPV 
V PRINT; WORK 
\:il\ ft READ DATA FROM THE DATA FILE AND ASSIGN IT TO WORK 
C23 LOOP:WORK*~DATA 

C33 aCHECK FOR AN EMPTY VECTOR— AN EMPTY VECTOR HAS A 
Ci+:.'l « SHAPE OF (NO ELEMENTS) 

cs:i ■+(()=? work) /done 

161 rDISPLAY AND PRINT THE VALUE ASSIGNED TO WORK 

C73 PRNT<-a<"WORK 

C B :i rCHECK THE RETURN CODE FOR THE PRINT OPERATION 

C93 <0 /PRNT) /ERROR 

CI 3 •♦LOOP 

C I i 3 E R R R : ' P R I N T E R R R C H E C K R E T U R N C D E F R C A I J S E ' 

C123 + 

C133 ft TERMINATE THE PRINTER OUTPUT 

[143 DONE :PRNT«- WORK 

C153 "THE RETURN CODES ARE" 

r:i63 DATA 

C:l.73 PRNT 
V 

The variable names to be shared must be established again and the data file 
opened. Also, printer output must be specified: 



NAMES*- 2 'IP "DATA PRNT' 

NAMES 
DATA ^^^___ Establish the variable names 

PRNT ^, t0 b e shared. 

1 DSVO NAMES- 



3 




o ':> 











-Open the data file for input. 



DATA*-' IN 1011 ID=< INVENTORY) ' 
DATA 

PRNT*- ' PRT ' •* Specify printer output. 

PRNT 
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Now, when the function PRINT is executed, the data file is read, displayed, and 
printed: 



PRINT 



245630 
24- 56'+ 
2«+56550 
535780 
5357950 
5357951 



SCREW 

NUT 

WASHER 

CIRC BD 

BOARD 

A/W 



50 

70 

50 

10 



1 



THE 





RETURN CODES ARE 



After the operation is complete, the shared variable names should be retracted: 



03V R NAMES 
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Chapter 9. More Things to Know About the 5100 



DATA SECURITY 

You are primarily responsible for the security of any sensitive data. After you 
are through using the 5100, the data in the active workspace can be removed by 
one of the following: 

• Using the )CLEAR command to clear the active workspace 

• Pressing the RESTART switch 

• Turning the POWER ON/OFF switch to off 

There are several methods available for protecting or removing sensitive data on a 
tape. These methods are: 

• Assigning a password to the workspace when writing the active workspace on 
tape. 

• Rewriting a tape file, which makes the old data inaccessible. 

• Filling a data file with meaningless data. For example, the following user- 
defined function fills file 4, a data file named DATA on tape 1, with zeros: 

VSECURITYCQ3V 
V SECURITY 

en :i. dsvo 'A' 

C2.:i A*' OUT •+ ID=<DATA> ' 

C3D B*- 10 1000 p0 

CMO WR:A<-B 

C53 -KAHi:i===0)/WR 



Note: ERROR 010 ddd will be displayed after the data file has been filled with 
zeros. 
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5100 STORAGE CAPACITY 



The base 5100 (Model A1) has a storage capacity of 16K (K = 1024 bytes). 
Figure 4 shows how this storage is allocated for various requirements. Notice 
that the workspace available to the user (active workspace) is 10,600 bytes, 
while the remaining bytes are used for internal purposes. The storage capacity 
is increased in the following models of the 5100: 

Model A2 is 32 K 
Model A3 is 48K 
Model A4 is 64K 



In these models, all additional storage is allocated to the active workspace. 
For example, on the Model A4, the active workspace is approximately 60,000 
bytes. 



10,600 
Bytes 



v__ 



5784 
Bytes 



Active Workspace 



(Suggested IMF Area, 1,000 Bytes) 



Symbol Table (see note) 



5100 Internal Storage Requirements for Pointers, 
Counters, etc 



Note: The symbol table requires eight bytes of storage for 
each symbol allowed in the active workspace (see )SYMBOLS 
in Chapter 2). 



Figure 4. Storage Allocation for a Model A1 5100 
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Storage Considerations 



The following list shows how many bytes of storage are required for each data 
type that can be in the active workspace: 



Data Type 

Character constant or variable name 

Whole numbers that are equal to or 
less than 2 3 ' -1 



Number of Bytes Required 

1 byte per character 
4 bytes 



3 



Whole numbers that are greater than 



2 31 -1 



Decimal numbers 
Logical data 



8 bytes 



8 bytes 

1/8 byte (1 byte can contain 8 
ones or zeros) 



Because the 5100 active workspace contains a fixed amount of storage, it is good 
practice to conserve as much storage as possible. Following are some considera- 
tions that can be used to conserve storage: 

• Make all objects (variables and user-defined functions) not required for use out- 
side of a user-defined function local to the function. 

• Store data in data files on the tape, and use an APL shared variable (see 
Chapter 8) to transfer the data into the active workspace when required. 

• Clear suspended functions (see Chapter 7) from the active workspace. 

• Group user-defined functions by related operations and store each group into 
a workspace file on tape. Then when a certain group of related functions is 
required to process data in the active workspace, the stored workspace contain- 
ing these functions can be copied into the active workspace. When the pro- 
cessing is done, the functions can be expunged (see Chapter 5) and another 
group of functions (one workspace) can be copied into the active workspace. 

• If a value consists of all ones and zeros, store the value as logical data. For 
example, you have the following vector: 

VECTOR<-10p<2-1) 
VECTOR 

l 1 :l. 1 l :l. .1. 1 l l 

The result is a vector of 10 ones, and each 1 requires four bytes of storage. 
However, the vector can be changed to a logical vector as follows: 

VECTOR M a VECTOR 
VECTOR 
1 1 1 1 .1. 1 1 J. 1 1 

The result looks just like the previous result; however, only 2 bytes of storage 
was required. 
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• Names of 3 characters or less require 8 bytes of storage in the symbol table 
(the symbol table is part of the active workspace where the names of all the 
symbols, including variables, user-defined functions, and labels, are stored). 
Names of 4 characters or more require an additional 8 bytes plus 1 byte for 
each character in the name. 

Note: Even if an object is erased from the active workspace, the storage used 
for its name will not be available for use unless the contents of the active 
workspace are written to tape with a )SAVE command and then loaded or 
copied back into the active workspace. 

• Identical names that are local to more than one user-defined function do not 
require additional symbol-table space for each function. 

When the contents of the active workspace are written to tape using the 
(CONTINUE command, then the stored workspace is loaded into a 5100 
with a larger active workspace, the amount of available workspace (see QWA 
system variable in Chapter 5) remains the same as it was when the contents of 
the active workspace were originally written to tape. To take advantage of the 
additional storage in the larger active workspace, write the contents of the active 
workspace to tape using the (SAVE command, then load the stored workspace 
back into the 5100. 



TAPE DATA CARTRIDGE HANDLING AND CARE 

• Protect the tape data cartridge from dust and dirt. Cartridges that are not 
needed for immediate use should be stored in their protective plastic envelopes. 

• Keep data cartridges away from magnetic fields and from ferromagnetic mater- 
ials that might be magnetized. Information on any cartridge exposed to a 
magnetic field could be lost. 

• Do not expose data cartridges to excessive heat (more than 130° F) or sunlight. 

• Do not touch or clean the tape surface. 

• If a data cartridge has been exposed to a temperature drop exceeding 30° F since 
the last usage, move the tape to its limits before using the tape. The procedure 
for moving the tape to its limits is: 

1 . Use the ) LIB command to move the tape to the last marked file. 

2. Use the (MARK command to mark from the last marked file to the end of 
the tape. For example: 

(MARK 200 1 n 

where n is the number of the last marked file, plus one. 

3. When ERROR 012 (end of tape) is displayed, use the (REWIND command 
to rewind the tape. 
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Chapter 10. The 5103 Printer 



POWER ON/OFF Switch 



o 




The IBM 5103 Printer is available as a feature attachment and has these 
characteristics: 

• Bidirectional printing (left to right, then right to left). The 5103 bidirectional 
printing operates as follows: 

The print head moves from the left margin and prints a line. Succeeding lines 
will be printed in either direction depending on which end of the new line is 
closest to the current position of the print head. The print head will be 
returned to the left margin periodically when printing is not imminent. 

• 132 characters across the print line. 

Note: If the width of the forms is less than 132 characters and the []PW 
system variable (see Chapter 5) is greater than the width of the forms, 
loss of data will occur as the print head leaves the form. 



• Capability of using individual or continuous forms. Maximum number of 
copies is six, but for optimum feeding and stacking, IBM recommends a 
maximum of four parts per form. 

• Adjustable forms tractor that allows the use of various width forms. The 
forms can be from 3 to 14.5 inches (76.2 to 368.3 mm) wide for individual 
forms and from 3 to 15 inches (76.2 to 381 mm) wide for continuous forms. 




• Print position spacing of 10 characters per inch and line spacing of six lines 
per inch. 

• Stapled forms or continuous card stock cannot be used. 

• The character printing rate is 80 characters per second. The throughput in 
lines per minute is function-dependent. 

• A vernier knob (located on the right side of the printer) that allows for fine adjust- 
ment of the printing position. This knob should only be used when the print head 
is in its leftmost position. 



174 



PageofSA21-9213-0 
Issued 15 September 1975 
ByTNL: SN21-0247 



The following sections describe how to insert forms and replace ribbons in the 
5103 Printer. 



HOW TO INSERT FORMS 



U 



Platen 



Rollers 




Forms Guide Rack The diagrams at the left show the proper forms path 

a^^fin lower position) for singlepart and multipart forms. The steps to 

insert forms begin below. 



Forms Path for Singlepart Forms 



Rollers 



Platen 




Forms Guide Rack 



Friction Feed Rolls 



Forms Path for Multipart Forms 



Form Guide Rack 




Rollers 



| Plastic Shield 
Print Head Paper Release Lever 



1. Pivot the plastic shield forward. 

2. Push the print head to the extreme left position. 

3. For singlepart forms, pivot the form guide rack 
up and forward to a vertical position. For multi- 
part forms, leave the form guide rack in the 
horizontal position. 

4. Push the paper release lever to the rear to acti- 
vate the friction feed rolls. 
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Tractors 




Platen 



Advance 
Knob 



Rollers 



5. Place the forms in position behind the printer. 

Note: The forms must be positioned behind the 
printer so that the forms feed squarely into the printer. 

6. Thread the paper down, over the rollers, behind the 
tractors, and behind the platen. 

7. Turn the paper-advance knob to move the paper around 
the platen until you can grasp it with your fingers. 

8. Open both tractor covers. 

9. Pull the paper release lever forward to disengage the 
friction feed rolls. 

10. Pull the paper up and place the left margin holes over 
the tractor pins. Be sure the left tractor is in its left- 
most position. 

1 1 . Close the left tractor cover. 







Tractor Cover and Pins 



Paper-Advance Knob 





Paper-Advance Knob 



1 2. Squeeze the two knobs on the right tractor and slide 
the tractor to align the pins with the right margin holes. 

13. Place the right margin holes over the tractor pins. 

14. Close the right tractor cover. 

1 5. For singlepart forms, pivot the form guide rack to a 
horizontal position. 

16. Turn either paper -advance knob to position the form 
for the first line to be printed. The paper should 
exit over the form guide rack. 

Note: To move the form backward, turn either 
paper-advance knob backward and pull the form 
from behind the printer to keep the form from buck- 
ling at the print head. 

1 7. Close the plastic shield. If you are installing the 
printer, return to step 7 of Printer Installation 
Procedures. 



CAUTION 

The switch that senses end of forms is deactivated when the 
friction feed rolls are engaged. Thus, the print wires could 
Right Tractor Knobs hit the base platen if no forms are in the printer. 



Tractor Cover and Pins 
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HOW TO ADJUST THE COPY CONTROL DIAL FOR FORMS THICKNESS 



Copy Control Dial 




1. If you are using singlepart forms, set the copy 
control dial on 0. 

2. If you are using multipart forms and the last sheet 
is not legible, rotate the copy control dial toward 
one click at a time to obtain the legibility you desire. 

3. If you are using multipart forms and the ribbon is 
smudging the first sheet, rotate the copy control 
dial toward 8 one click at a time until smudging 
stops. 



HOW TO REPLACE A RIBBON 



Forms Tractor 




1 . Turn off power to the printer. 

2. Tilt the forms tractor back by lifting both sides at the 
front. 

3. Raise the printer cover. 



Power On Switch 



Printer Cover 
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Feed Roll 
Release Knob 




o 



4. Be sure that the print head is to the extreme left. 

5. Turn the feed roll release knob counterclockwise until 
it points to the right. 

6. Open the ribbon box cover. 

7. Put on the gloves supplied with the new ribbon. 

8. Remove the old ribbon from the guides being careful to { 
disengage it from the clip on the print head. 

9. Lay the ribbon loop on the top of the ribbon in the rib- 
bon box. Pick up the entire ribbon and discard it. 



Ribbon Loop 



Ribbon Box Cover 



Disk 



Print Head 





Loop 



Ribbon Box 




Ribbon Holder 



10. Eject the new ribbon from its holder into the ribbon 
box by pressing on the disk. 

1 1 . Remove the disk from the ribbon and discard the disk 
and the holder. 

12. Hold the coil lightly with one hand and pull about 10 
inches (254 mm) of ribbon from the coil. 

13. Form a loop from the ribbon across the print head. 
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Upper 
Guide Post 



Platen 



Feed Rolls 



Print Head 



Horizontal 
Guides 




Feed Roll 
Release Knob 



Left 
Guide Post 



Guide Shoe Slot Ribbon Box 



14. Thread the part of the loop nearest the platen between 
the feed rolls and on the inside of the upper guide post. 

15. Turn the feed roll release knob clockwise to close the 
feed rolls. 

16. Thread the ribbon between the print head and the platen. 
Be sure the ribbon is under the clip on the print head. 

17. Thread the other part of the loop through the slot in the 
bottom of the ribbon box. 

18. Thread the ribbon through the guide shoe and around 
the left guide post. 

19. Insert the horizontal part of the ribbon twist (bottom 
edge first) between the two horizontal guides. 

20. Move the print head back and forth across the 
platen to remove the slack from the ribbon. Con- 
tinue moving the print head until you are sure 
that the ribbon feeds properly. 

21. Close the ribbon box cover. 

22. Close the printer cover and turn the power on. 

23. Reposition the form tractor. 
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Chapter 11. Error Messages 



Error messages can result when using APL primitive (built-in) functions, user- 
defined functions, system commands, system variables, or input/output opera- 
tions. The following list contains the APL error messages along with some pos- 
sible causes for the error condition and a suggested user's response: 



Error Message 
ALREADY MARKED 



CHARACTER ERROR 
DEFN ERROR 



Cause 

The specified file was previously marked. 



An invalid character was entered. 

An invalid request to use the function 
definition mode was made: 



User's Response 

If the file is to be remarked, enter GO. 

Note: Any existing data in the files 
following the last re-marked file will no 
longer be available. 

Enter a corrected statement. 



D 



• A V symbol was erroneously used in 
a statement. 

• An attempt was made to reopen a 
locked function. 



If the statement was intended to open or 
close a function, the V is valid only in the 
beginning and ending positions. 



• An attempt was made to reopen a 
function using more than just the 
function name. 



Enter a corrected statement. 



• An attempt was made to open a new 
function definition using the name of 

a previously defined global variable name. 

• An invalid edit request was made in 
function definition mode. 



Enter a different function name or erase 
the global variable. 



Enter a valid edit request. 



DEVICE NOT OPEN 



DEVICE TABLE FULL 



• An attempt was made to edit a pen- 
dent function. 



An attempt was made to read a data file 
and the file is not open. 

An attempt was made to establish more 
than eight variable names to be shared 
for tape or printer input/output. 



If the suspended function execution can be 
terminated, clear the state indicator (see 
Chapter 7), then edit the function. 

Assign the information required to open the 
file to the shared variable. 

Retract any unused shared variable names. 
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Error Message 

ERROR eee ddd 

ERROR 002 ddd 
ERROR 003 ddd 
ERROR 004 ddd 
ERROR 005 ddd 

ERROR 006 ddd 



ERROR 007 ddd 



ERROR 008 ddd 



ERROR 010 ddd 



ERROR 011 ddd 

ERROR 012 ddd 
ERROR 013 ddd 
ERROR 014 ddd 

ERROR 050 ddd 



Cause 



User's Response 



eee is the error code for an input/output device operation and ddd is the device number. 
The device numbers are: 500— printer; 001 -built-in tape unit; 002-auxiliary tape unit. 
Following is a list, cause, and user's response for the input/output device error messages: 



Command error. 

Tape error. 

Tape error. 

The tape cartridge is not inserted in 
the indicated tape unit. 

An attempt was made to write on a tape 
that is file-protected. (The SAFE switch 
on the tape cartridge is in the SAFE 
position.) 

Tape read error. 



The tape cartridge was probably removed 
from the tape unit when data or a work- 
space was being written to tape. The 
data in the file cannot be used. 



Data is to be written to a data file, but 
all the space in the file has been used. 

An attempt was made to write the active 
workspace on tape with a (SAVE 
command, but the specified file could 
not contain all the information from the 
active workspace. 

A file number was specified that has 
not been marked. 

The end of the tape has been reached. 

The specified device is not attached. 

Device error. 



The printer has run out of forms. 



Performing tape operations with an un- 
MARKed cartridge will cause error 004. 
Otherwise, try the operation again. If the 
error occurs a second time, call your ser- 
vice representative. 

Insert a tape cartridge and try the 
operation again. 

If you want to write on the tape, turn the 
SAFE switch on the tape cartridge off of 
the SAFE position. 



Use the )PATCH command and Tape 
Recovery program (see Chapter 2) to 
recover as much data as possible. 

Try the operation again. If the error 
occurs again, copy the files following the 
file that caused the errors onto another 
tape. Then use the )MARK command and 
re-mark the tape from the file that caused 
the error. 

Use the )MARK command to format a 
larger file and do the operation again. 

Use a larger file to save the active 
workspace. 



Specify the correct file number or use the 
(MARK command to mark the tape. 

Use another tape cartridge. 



Try the operation again. If the error 
occurs a second time, call your service 
representative. 

Insert forms in the printer (see Chapter 10). 
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Error Message 
ERROR 051 ddd 

ERROR 052-059 ddd 



Cause 

The printer POWER ON/OFF switch is 
turned off. 

Printer errors. 



User's Response 

Turn the POWER ON/OFF switch on. 



Try the operation again. If the error 
occurs a second time, call your service 
representative. 



D 



DOMAIN ERROR 



The function indicated by the caret (a) 
cannot operate on the arguments given: 

• The result exceeds the capacity of 
the5100(<5.3976E~79or 
>7.237E75). 



Determine the correct arguments for the 
function in error. Then correct the state- 
ment in error. 



EXCEEDED MAXIMUM 
RECORD LENGTH 



IMPLICIT ERROR 



INCORRECT COMMAND 



• A character argument cannot be used 
in an arithmetic operation. 

• The argument is not mathematically 
defined for the function (12v0). 

• Numeric and character data cannot 
be joined together. 

• An error occurred in a locked function. 

The tape was removed before the data 
file was closed during a tape input/ 
output operation. 

The system variable that precedes the 
error message was previously assigned 
an invalid value or was undefined in a 
function due to the system variable 
being made local to the function. 

Note: This error message is not displayed 
until the system variable in error is used 
by the APL system. 

A system command was entered 
incorrectly: 

• The command keyword was not a 
valid keyword. 

• One of the parameters was entered 
incorrectly. 

• Too many parameters were entered 
for the command. 



The data in the file cannot be used. 



Assign a valid value to the system variable 
(see Chapter 2). 



J 



Enter the command in its correct form. 



J 
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Error Message 

INDEX ERROR 



INTERFACE QUOTA 
EXHAUSTED 



INTERRUPT 



INVALID DATA TYPE 



INVALID DEVICE 



INVALID DEVICE 
NUMBER 

INVALID FILE 



Cause 

The index values given are outside the 
boundaries of the array or a primitive 
function or APL operator being sub- 
scripted by index [I] has been given 
an argument that does not have an I 
dimension. 



th 



An attempt was made to establish more 
than eight variable names to be shared 
for tape or printer input/output. 

Attention was pressed twice when the 
5100 was processing data or an invalid 
tape input/output operation was 
attempted. 

Only interchange data can be used, but 
there was an attempt made to use data 
that is not a character scalar or vector. 

An attempt was made to open a data 
file with other than character data. 

A device was specified that does not 
exist or is incorrect for the operation 
to be performed. 

A device number that does not exist 
was specified. 

The file type is not valid for the 
attempted operation. For example, 
an attempt was made to load a data 
file or read a workspace file. 

An attempt was made to load or copy 
a damaged file. The file was probably 
damaged by the tape being removed 
from the tape unit before a save 
operation was complete. 

The wrong file ID was specified. 



User's Response 

If a variable is being indexed, check its 
shape (pA) against the index values. 

If a primitive function or operator is being 
indexed, determine the rank(s) (p p A) of 
its argument(s); then check the index to 
see if it is equal to or less than the re- 
quired rank. 

Check the index origin (QIO) to ensure 
that it is consistent with the statement 
being executed. 

Retract any unused shared variable names. 



If an invalid tape input/output operation 
was attempted, check the file open infor- 
mation to make sure the file was opened 
correctly. 

Change the data to a character scalar or 
vector. 



Enclose the information required to open 
the data in single quotes. 

Specify the correct device number. 



Specify the correct device number. 



Use the )LIB command to determine the 
file type. 



The data in the file is unusable. The file 
can be dropped (use the )DROP command) 
and reused. 



Use the )LIB command to find the correct 
file ID and reenter the statement. 
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Error Message 

INVALID FILE NUMBER 



INVALID OPERATION 



INVALID PARAMETER 



LENGTH ERROR 



LINE TOO LONG 



NONCE 



NOT COPIED: names 



Cause 

The file number was specified for a 
(LOAD, )SAVE, )CONT, (DROP, 
(COPY or )PCOPY command. 

An attempt was made to open a data 
file, but the file number was not valid. 



An invalid tape input/output operation 
was attempted. This message is followed 
by an INTERRUPT error message. 



A keying error was made or an incorrect 
parameter was specified when entering 
the information required to open a data 
file or specifying printer output. 

A keying error was made when entering 
the parameters for a system command. 

The shapes of the two arguments are 
not valid for the function indicated by 
the caret (a). 

An attempt was made to edit a statement 
(in a user-defined function) that is greater 
than 115 characters. 

An attempt was made to save a work- 
space that contained a user-defined func- 
tion with a statement having more than 
115 characters. In this case, the error 
message is preceded by the function name 
and the statement number that caused 
the error. 

An I-beam function was used. These 
functions are not used in the 5100 APL 
system. 

A )PCOPY was issued, but each object 
named in the message was not copied. 
The active workspace already contained 
a global object with the same name. 



User's Response 

Reenter the command specifying the 
correct file number. 



Use the )LIB command to find the correct 
file number. Then reenter the information 
required to open the data file. 

Check the file open information to make 
sure the data file was opened correctly 
or make sure you are using the shared 
variable correctly. 



Enter the file open information or system 
command again, correcting the keying 
errors. 



Make sure the arguments are valid for the 
function. Then reshape (restructure) the 
arguments. 

Break the statement up into two state- 
ments or use the OCR and DFX functions 
to edit the statement. 

Use the QCR function to make the user- 
defined function a matrix; then save the 
workspace on tape. 



Do not use the I-beam functions. 



Issue a )COPY command if the named 
objects should be copied. 
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Error Message 

NOT FOUND: names 



NOT SAVED, THIS WS 
IS workspace ID 



NOT WITH OPEN DEVICE 



Cause 

A )ERASE command was issued, but 
the global objects named in the message 
were not found in the active workspace. 

A )COPY or )PCOPY command was 
issued, but the specified global object 
does not exist in the specified workspace. 

A )SAVE command was issued but the 
stored workspace ID is not the same as 
the active workspace ID. 



An attempt was made to issue a system 
command or open a file on a tape unit 
that is already being used for input/out- 
put operations. 

A )OUTSEL command was issued, but 
printer output has been specified for a 
shared variable. 



User's Response 

Reissue the command using the correct 
object names. 



Reissue the command using the correct 
object name or stored workspace. 



Use the correct ID or change identifica- 
tion of the active workspace, using the 
)WSID command; then reissue the )SAVE 
command. 

Close the data file or wait until the input/ 
output operation is complete before 
issuing the command or the file open 
information again. 

Retract the printer shared variable. 




NOT WITH SYSTEM 
ERROR 



An attempt was made to do an opera- 
tion other than )CLEAR after a 
SYSTEM ERROR occurred. 



(see SYSTEM ERROR) 



^ NOT WITH SUSPENDED 
FUNCTION 



An attempt was made to do a (SAVE, 
)COPY, or )PCOPY operation and the 
active workspace contains a suspended 
function. 



Clear the suspended function by using 
-*■ (right arrow). 



RANK ERROR 



An attempt was made to use a function 
that requires the rank of the arguments 
to conform, but they do not. For 
example, a function requires the rank 
of the arguments to be the same, but 
they are not. 

An attempt was made to use an argument 
whose rank is too large for the operation. 

The number of semicolons in the index 
does not equal the rank minus 1. 



Make sure the arguments are valid. Then 
reshape (restructure) the arguments so that 
they have the correct rank (ppA). 



Use the correct number of semicolons. 
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Error Message 

SI DAMAGE 



SYMBOL TABLE FULL 



SYNTAX ERROR 



SYSTEM ERROR 



VALUE ERROR 



Cause 

The state indicator was made invalid 
because one of the following occurred: 

• A function exists in the state indica- 
tor list, but the function was erased. 

• A suspended function's header was 
changed. 

• A label was removed or changed 
on the suspended statement. 

• Statements were added to or erased 
from a suspended function. 

More symbols were used than the number 
of symbols allowed. 

The symbol table in the stored work- 
space is full and a load operation was 
attempted. This error is caused by the 
latent expression variable even if it 
has not been assigned. 



The part of the statement indicated by 
the caret (a) is syntactically invalid. 

A malfunction occurred in the APL sys- 
tem program and the data in the active 
workspace is lost. 



The object indicated by the caret (a) 
has not been given a value: 

• If the object is a variable name, the 
variable was not previously assigned 
a value. 

• If the object is a function name, the 
function header did not specify a 
result, or the function did not assign 
a value to the result variable. 



User's Response 



Use the )SI or )SIV command to display 
the state indicator. Clear out the state 
indicator by entering -*■ repeatedly. 



(SAVE the workspace, (CLEAR the active 
workspace, increase the number of sym- 
bols allowed by using the (SYMBOLS 
command, then (COPY the stored work- 
space into the active workspace. 

Note: Erasing a symbol from the active 
workspace does not remove it from the 
symbol table; however, saving the active 
workspace and loading it again will remove 
any unused symbols from the symbol table. 

Enter a corrected statement. 



Enter the (CLEAR command; if the error 
continues to occur, call your service 
representative. 

Note: If SYSTEM ERROR occurred on a 
load or copy operation, the error may be 
caused by a bad stored workspace file. 
Try loading or copying another stored 
workspace file to see if the error occurs 
again. 

Assign a value for the indicated variable or 
correct the function so that it has an ex- 
plicit result. The value must be assigned 
before the object is used. 



J 
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Error Message 

WS FULL 



Cause 

One of the following conditions occurred: 

• A (COPY or (PCOPY command was 
issued, but the active workspace could 
not contain all the objects requested. 



User's Response 

Erase unnecessary objects. If there is still 
not enough space, do a (SAVE and 
(LOAD of the active workspace. 



• The active workspace could not con- 
tain all the information required to 
build a defined function. 



WS LOCKED 



WS NOT FOUND 



WS TOO BIG 



• The active workspace could not con- 
tain the intermediate results of an 
APL expression. 

• The active workspace could not con- 
tain the final results of an APL 
expression. 

• The active workspace could not con- 
tain the information required to do 
input/output operations. 

• A workspace was written to tape 
with a (SAVE command, but the 
extra storage required when loading 
the stored workspace back into the 
active workspace exceeds the avail- 
able storage. 

The workspace is password-protected, 
but no password or the wrong pass- 
word was specified in the command. 

A (LOAD, (DROP, (COPY, or 
(PCOPY command was issued, but 
there is no stored workspace with the 
identification specified in the command. 

One of the following conditions occurred: 

• An attempt was made to load a work- 
space stored with the (CONTINUE 
command into a 5100 with less in- 
ternal storage. 

• An attempt was made to load a work- 
space stored with the (CONTINUE 
command into the active workspace, 
but IMFs have been applied reducing 
the available internal storage. 

• An attempt was made to write the 
active workspace (using the (CONTINUE 
command) into a file that is too small. 



Use the (COPY command to make the 
stored workspace into two workspaces. 



Reenter the command with the correct 
password specified. 



Reenter the command with the correct 
workspace identification. 



Use a 5100 with enough internal storage. 



Clear the active workspace, load the stored 
workspace into the active workspace, 
(SAVE the active workspace, apply the 
IMFs, then load the stored workspace again 
or copy only the required objects. 

Use a file that is large enough. 
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Appendix A, Installation Procedures and Installation Planning Information 




INSTALLATION PLANNING 

IBM 5100 Portable Computer 50 lb (24 kg) 

The 5100 Portable Computer and associated units are designed for these 
environments: 

Operating Environment 

Dry bulb temperature 60° -90° F (15°-32° C) 

Relative humidity 8%-80% 

Maximum wet bulb 

temperature 73 F (23 C) 

Nonoperating Environment 

Dry bulb temperature 50°-105° F (10° -43° C) 
Relative humidity 8%-80% 

Maximum wet bulb 



temperature 



IBM 5103 Printer 
56 lb (26 kg) 



23 inch 



80 F (27° C) 



IBM 5100 Portable Computer 
50 lb (24 kg) 



IBM 5106 Auxiliary Tape Drive 
18 lb (8 kg) 




7-1/4 inch 
(19 cm) 



7-1/2 inch 
19 cm) 



188 



Page of SA21 -921 3-0 
Issued 15 September 1975 
ByTNL: SN21-0247 



Electrical 



A 1 15-volt, 15-ampere, single-phase, 60-cycle grounded receptacle is required for 
each unit. Allowable tolerance is ±10% on the voltage and ±1/2 cycle on the 
frequency. 

A duplex receptacle is recommended so that the 5100 Portable Computer and an 
auxiliary tape unit or a printer can be powered from the same outlet. 

The auxiliary tape unit power plug has a tap so that a printer, TV monitor, or 
communication modem can be attached for electrical power. 

All attachment power cords are 6 feet (1 .8 meters) long. 

Current Requirements are: 

5100 Portable Computer 3.0 amps 
5103 Printer 1.0 amp 

5106 Auxiliary Tape Unit 0.5 amp 

The heat output is: 

5100 Portable Computer 780 BTU per hour 
51 03 Printer 300 BTU per hour 

5106 Auxiliary Tape Unit 130 BTU per hour 




Cabling 



The 5100 Portable Computer is connected to the printer by a 4-foot (1.2-meter) 
signal cable and to the auxiliary tape unit by a 2-foot (0.6-meter) signal cable. 
The cables are supplied with the features. 

When both the printer and auxiliary tape unit are installed, the printer must be 
attached to the auxiliary tape unit instead of the 5100 Portable Computer. 

When only the auxiliary tape unit is installed without a printer, the terminator 
assembly must be moved from its storage position to the signal cable receptacle 
immediately below it, on the back of the auxiliary tape unit. 
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Communications 

Contact your IBM marketing representative to obtain modem specifications. 

Contact your local communications company representative immediately to allow 
adequate time for equipment hookup. 

The required 6-foot (1.8-meter) cable is supplied. 

The modem connector must be compatible with Amp Corporation receptacle 
#205207 (25 position) or equivalent. 



,BNC Connector for External Monitors 
(40 mA of current is available to drive 
external monitors, the last monitor in 
a parallel string must be terminated 
with 75 ohms) 



D 




n 
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INSTALLATION PROCEDURES 

5100 Installation Procedure 

After you have placed the 5100 where you intend to use it, make sure the red POWER 
ON/OFF switch (located on the front panel) is in the OFF position. Plug the power 
line into a grounded electrical outlet. 

Note: For proper operation, the 5100 must be plugged into a grounded outlet. 

Set the POWER switch to ON, and be sure that the fan is operating: 

• If your machine location is not too noisy, you should hear the fan motor 
operating. 

• If you are not sure, hold a light piece of paper near the air intake on the back of 
the machine. The loose end of the paper should be pulled toward the machine. 

If the fan does not appear to be operating, check your power outlet. If it is OK, set 
the POWER switch to OFF and call for service. Do not continue with these 
instructions. 

If the fan is operating, wait for about 20 seconds and your 5100 will be ready for 
operation. 



APL Checkout Procedure 

D 1 . After power has been on 20 seconds, the display screen should show: 



CLEAR WS 



'The underline (cursor) flashes on and off. 



If the display screen does not show the above information, check the 
following top panel switches: 

a. Turn the BRIGHTNESS control to get the best character definition. 

b. Set the DISPLAY REGISTERS switch to the NORMAL position. 

c. Set the L32 64 R32 switch to the center (64) position. 

d. Set the BASIC/APL switch (combined machines only) to the APL 
position. 

e. If information displayed is not as shown above, press the RESTART 
switch. This recycles a portion of the power-on sequence. If the infor- 
mation displayed is still not as shown above (after the 20-second delay), 
call for service. 
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□ 2. 



D3. 



If the display screen does not show the correct results in the remaining steps 
of this procedure, press RESTART once, go back to step 1 and try again. If 
the correct result is still not shown, call for service. 

Enter the data shown by the key drawings below. The data will be displayed 
as the keys are pressed. 

If you make a keying error, you can press the backspace key HHH (above 

EXECUTE) to backspace the cursor, then press the correct key 

Where the bottom portion of the key is shown shaded, hold the shift key jj| 

down while you press the character key. (Enter the unshaded character.) 
Press the following keys in sequence line by line: 

The display now shows 



SCDCDCDQ 



□mm 

CD CD CD 




CLEAR WS 

VTEST 
CI 3 




n 

c 
< ■ 







CD CD CD 



©0 




Besure to use the multiply 
key and not the alphabetic 
X. 



D 



GDCDCDlD 






Below the lines of the test program that you just entered, the answer of 27 
will be displayed (the program multiplies 3 times 9): 

VTEST 
CI 3 A<-3 
r.2.3 B<-9 
C33 OAxB 

c+:i C\? 

TEST 
27 
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□ 4. |f you checked out the tape operation under the BASIC checkout procedures, 
insert the tape cartridge into the 5100 and go to step 6. Remove an unused or 
scratch tape cartridge from its package. Check that the arrow is pointing away 
from the word SAFE as shown in the illustration. Insert a coin or screwdriver 
into the slot if you must turn the triangular arrow away from the word SAFE. 

Note: Do not use any prerecorded tape cartridges that were shipped with your 
machine. 



This edge goes into machine first, 




□ 5A. Insert the tape cartridge into the 5100 (metal bottom down), and press it in 
until it seats firmly. Then press the following keys (you must leave a space 
before each number) : 



msmcDCD 



space 



Itt 
5 


space 


2 



space 




5B. The previous step initialized the tape to hold information. If a message of 
MARKED is displayed, go to step 6. If a message of ALREADY MARKED is 
displayed, the tape is already marked. To re-mark the tape, press: 



f 



gJI_o 



1 



□ 6. Press the following keys: 



C 



1 CD CD CD ^ 







space 



w 


•ill 

s 




EXECUTE 








| 
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□ 7. The last step wrote the program onto tape, but it is still recorded in the 

storage workspace. To prove the program can be read from tape, the program 
must be erased from the workspace. To do this, press the following keys: 



L II E II A 



lili 






□ 8. To read the program from tape into the 5100, press the following keys: 




i03f3(T)°p- 



* * 



space 



w II s 



1 



Q 9. When LOADED 1 002 WS is displayed, press these keys: 



T II E M s T 






The display screen should again show: 



TEST 



2? 



Position 1 \ 



Position 7 



This completes the APL checkout procedure. 
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D 10. Check to see that you received the following documentation: 

a. IBM 5100 APL Introduction, SA21 -921 2 

b. IBM 5100 APL Reference Card, GX21-9214, located in the back of this 
binder 

c. Maintenance Library Binder 

If the words above the top row of numeric keys are labeled on the left with: 

BASIC ) 
p > , you have a combined machine. 



COMM 
BASIC 
APL 

COMM 
APL 



, you have a combined machine with the communications feature. 



you have an APL machine with the communications feature. 



COMM 
BASIC 



you have a BASIC machine with the communications feature. 



If you have not checked out BASIC on a combined machine, set the 
BASIC/ APL switch to the BASIC position, press RESTART, and go to the 
BASIC Checkout Procedures in Appendix C of the IBM 5100 BASIC 
Reference Manual, SA21-9217. If you already did the BASIC checkout 
procedures, continue with step 1 1. 

□ 1 1 . If the auxiliary tape unit is to be installed, unpack the tape unit and pro- 

ceed to the Auxiliary Tape Unit Installation Procedure which follows. 
After installing the auxiliary tape unit, proceed to step 12. 

□ 1 2. If the printer is to be installed, unpack the printer and proceed to Printer 

Installation Procedure, which comes later in this appendix. After install- 
ing the printer, return to step 1 3. 

□ 13. If your 5100 is equipped with the communications feature, follow the 

Installation Instructions in the IBM 5100 Communications Reference 
Manual, SA21-9215; then go to step 14. 

D 14. When the preceding devices or features are installed, or if none are, begin 

reading the IBM 5100 APL Introduction to learn how to operate your 5100. 
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Auxiliary Tape Unit Installation Procedure 



□ 1. Set the 5100 and auxiliary tape unit power switches to OFF. 

□ 2. Remove the shipping tape from the signal cable (flat cable) and connect the 

signal cable into the back of the 5100. Make sure the connector fits squarely. 
Turn the knob in a clockwise direction until the connectors fit together firmly: 



o 



Storage Position for Terminator Plug 




Terminator Plug 



The terminator plug connects 
into the lower position. 



Power Line Plugs 



D 3. Check that the terminator plug is in place on the rear panel as shown in the 
preceding diagram. 

D 4. Remove the shipping tape from the power line and plug the power line into 
a grounded electrical outlet. 

□ 5. Set the auxiliary tape unit POWER switch to ON, and be sure that the fan 

is operating. 

a. If your location is not too noisy, you should hear the fan motor operating. 

b. If you are not sure, hold a light piece of paper near the air intake on the 
left side of the tape unit. The loose end of the paper should be pulled 
toward the tape unit. 

If the fan does not appear to be operating, check your power outlet. If it is 
OK, set the POWER switch to OFF and call for service. Do not continue with 
these instructions. 

□ 6. Set the 5100 POWER switch to ON and continue to the checkout procedure. 
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Tape Unit Checkout Procedure 

Note: The following steps assume you are using the same cartridge that you used 
to check the 5100. If you are not, write any program onto the cartridge in the 
auxiliary tape unit and read it back. 

□ 1. Insert a tape cartridge into the auxiliary tape unit after checking that the 

arrow is pointing away from the word SAFE. 

□ 2. Press the following keys to read in the program that was stored on tape during 

the 5100 checkout procedure: 




GDG3 



space 



mCDCD-tDCD 






□ 3. After the message LOADED 2002 WS appears on the display screen, press 
the following keys: 



qocdoe) - soma - ©co 






D 4. The message CONTINUED 2002 WS appears on the display to verify that 
the program was written back to tape and was checked by the 5100. 

This completes the checkout procedure for the auxiliary tape unit. 

Return to step 1 2 of the 5100 checkout procedure. 
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Printer Installation Procedure 



□ 1. Set all POWER switches to OFF. 



o 




□ 2. 



□ 3. 



If you have an auxiliary tape unit, remove the terminator plug from the 
bottom position and insert it into the top position (storage position). 

Remove the shipping tape from the printer signal cable (flat cable) and 
connect the signal cable to the back of the auxiliary tape unit, if it is 
attached, or to the back of the 5100. Make sure the connector fits 
squarely. Turn the knob in a clockwise direction until the connectors 
fit together firmly: 

BNC Connector 
^for TV Monitor 

Forms Tractor 



Storage Position for 
Terminator Plug 




Connector 
Position 



The printer signal connects to the back of the 
5100 if the auxiliary tape unit is not attached. 



□ 4. Remove the shipping tape from the printer power line and plug the power 
line into the back of the auxiliary tape power plug or into a grounded elec- 
trical outlet. 



D 
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□ 5. Unpack the forms tractor and set it in place on top of the printer as shown 
in the drawing. Install the forms guide rack on the forms tractor. 



Hole for Forms Guide Rack 
(inside frame) 



| Forms Tractor 




Forms Guide Rack 



Position this part of the 
forms tractor first. Press 
down firmly to snap into 
place. 



Then rock the forms 
tractor forward and 
snap this part into place. 



Must be in this position. 




r n 



□ 6. Insert paper in the printer. Use the printer information in this manual if you 

need help in inserting the paper (see Chapter 10). 

□ 7. Set both the printer and 5100 POWER switches to ON and continue on to 

the checkout procedure. 



Printer Checkout Procedure 

Press several alphameric keys to display some information. Then, hold down the 
CMD key | | and press the key (~~\ below Copy Display on the 






m 



command word strip. The printer will provide a copy of the information on the 
display screen. 

Return to step 13 of the 5100 checkout procedure. 
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Appendix B. APL Character Set and Overstruck Characters 



Overstruck characters are formed by entering one character, backspacing, and enter- 
ing the other character. The 5300 APL character set consists of all the characters 
represented on the 5100 keyboard plus the following overstruck characters: 




Function 

Comment 


Character 


Keys Used 

mm 


Execute 


4> 


(3D 


Factorial, combination 


» 


00 


Format 


V 


mm 


Grade down 


¥ 


mm 


Grade up 


4 


mm 


Logarithm 


® 


CDS 


Matrix division 


ffl 


00 


Nand 


A 


mm 


Nor 


V 


mm 


Protected function 


V 


mm 


Quad quote 


Q 


mm 


Rotate, reverse 


* 


mm 


Transpose 


4? 


mm 


Compress 


/ (see note) 


mm 


Expand 


\ (see note) 


mm 


Rotate, reverse 


@ (see note) 


mm 



Note: These are variations of the symbols for these functions; they are used when 
the function is acting on the first coordinate of an array. 
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Appendix C. Atomic Vector 



The following chart shows the character, the character name, and the index of 
that character in the atomic vector: 



Character 



Character Name 



Index 
(D IO+-D 



A 
V 



RESERVED, , . 
RESERVED. , , 
RESERVED. , . 
RESERVED. , . 
RESERVED, . . 
RESERVED, , , 
RESERVED. , . 
RESERVED, . , 
RESERVED, . . 
RESERVED, . , 
RESERVED, , , 
RESERVED. , , 
RESERVED. , . 
RESERVED. . . 
LEFT BRACKET. 
RIGHT BRACKET 
LEFT PARENTHES 
RIGHT PARENTHES! 
SEMICOLON . , 
SLASH , , . . 
BACK SLASH. , 
LEFT ARROW, . 
RIGHT ARROW . 
RESERVED. . . 
RESERVED, , . 



DIE RES IS (UPPE 

PLUS 

MINUS , , , , 
TIMES .... 
DIVIDE, , . , 
STAR. .... 
MAXIMUM . , . 
MINIMUM , , . 
RESIDUE . , . 

AND 

OR 

LESS THAN . . 
LESS THAN OR EQl 

EOUAI 

GREATER THAN 
GREATER THAN. 
NOT EGUAI 



SHIf 



J A I, 
EQUAL 



i ' 
8 
9 
1 

:l. :l. 
12 
13 
:i.M- 



l ? 

18 
19 
20 
21 
2 2 
23 
24 
25 
26 
27 
28 
29 
30 
3:1. 
32 
33 
34 
35 
36 
37 
38 
39 
4 
"I! 
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Character 



0! 



Character Name 



ALPHA 



p<:; 



..ON 



X 


IOTA 


fl 


RHO 


<1> 


OMEGA 


I 


COMMA 


! 


SHRIEK (EX CI... AM A' 


* 


REVERSAL 


.1. 


ENCODE (BASE) , 


T 


DECODE (REPRESEf 


O 


CIRCLE 


';> 


QUERY 


A' 


NOT 


f 


UP ARROW. , . . 


l 


DOWN ARROW. . , 


c 


SUBSET 


".) 


RIGHT SUBSET, , 


n 


CAP 


u 


CUP 




UNDERSCORE. , , 


$ 


TRANSPOSE , . , 


:n: 


:n:~BEAM 


<> 


NULL (SMALL CIRC 


111 


QUAD 


□ 


QUAD QUOTE, , , 


(« 


LOG 


A* 
A 


NAND 


A' 


NOR 


Pi 


LAMP -COMMENT, , 


4> 


GRADE UP, , , , 


¥ 


GRADE DOWN, , , 


B 


OVERSTRUCK CIRCL 


/ 


OVERSTRUCK SLASH 


\ 


OVERSTRUCK BACK 5! 


H 


MA IRIX DIVIDE , 


* 


FORMAT 


.*. 


EXECUTE , , . . 


& 


AMPERSAND , . , 





AT 


« 


POUND 


$ 


DOLLAR 


IT) 


UNUSED 


TA 


TRACE (T DELTA) 


SA 


STOP (S DELTA) . 


A 


A 


B 


B 


C 


C 


D 


D 



N) 



TA1 



on: 



-HY 

,.A 



Yl 
PH 



::n, 



Index 
(DICH-1) 

i+3 

i|-5 
'•I- A 
1.I.7 

'•I- 8 
5 



3,5 

5M- 
55 
56 
57 
58 
59 
6 
61 
62 
63 
6'+ 
65 
66 
67 
68 



70 
71 
72 
73 
71.1. 



.'6 
77 
78 
79 
80 
81 
82 
83 
8M- 
85 
86 
87 
88 
89 
90 
91 



93 
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Character 



Character Name 



Index 
(DIO-M) 



M 


M , . 


N 


N . . 





. . 


P 
ft 


P . . 


R 


R . . 


S 


S . . 


T 


T . . 


U 


U . ■ 


V 


V , . 


W 


u . . 


x 


X . 


Y 


Y ■ 


Z 


Z , . 


A 


DELTA 


A 


A -UN BE 


B 


B-UNDE 


6 


C-UNDE 


D 


D-UNBE 


E 


E-UNBE 


f 


E -UN BE 


G 


G-UNBE 


i :: i 


H-UNBE 


I 


I -UN BE 


j 


J -UN BE 


K 


K-UNBE 


C 


L-UNBE 


M 


M-UNBE 


N 


N-UNBE 


6 


G-UNBE 


p 


P-UNBE 


Q 


G-UNDE 


R 


R-UNBE 


8 


S-UNDE 


T 


T-UNDE 





U-UNBE 


V 


V-UNBE 


Q 


U-UNDE 


X 


X-UNDE 


Y 


Y-UNDE 


z 


Z-UNDE 


& 


BELTA- 





. . 



RSCO 
R SCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
RSCO RE 
UNBERS 







RE 



91+ 

95 
96 
97 
98 
?9 
I. 
I. 1 
1.02 
1.03 
LO'l- 
105 
I. 6 
1.07 
1.08 
1.09 
I. :l. 
1. 1 :l. 
l.:i.2 

113 

I.1M- 
LIS 
1.16 
1. 1 7 
1.18 
1.19 
1.20 
1.21 
I 22 
123 
I.2M- 
1.25 
1.26 
1.27 
128 
I ''9 
1.30 
1.31 
L32 
1.33 
I.3I-I- 
1.35 
1.36 
1.37 
138 
1.39 
I.M-0 
I. Ml 
1 M2 
I.M-3 
I.I+M- 
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Character 



Character Name 



Index 
(□I0+-1) 



8 

9 




i 



A 

<:> 
A 
6 
u 
A 



£ 
6 

A 



c> 

7 

8 

? 

PERIOD, . , 
OVERBAR . . 
BLANK . , . 
QUOTE , , . 
COLON , . , 
DEL <FN DEE CAM- 
CURSOR RETURN 
END OF BLOCK (C( 
BACKSPACE 
LINEFEED, 
PROTECTED DEI. 
UNUSED . . 
UNUSED , , 
UNUSED , , 
UNUSED , , 
UNUSED . , 
UNUSED , , 
UNUSED , , 
LENGTH OF 
O-U-T FOR COM 
LOGICAL NOT 
DOUBLE QUOTi; 
PERCENT , . 
PROTECTED 
BULLS EYE 
A UMI...ET . 
UNLET , 
U UNLET , 
ANGSTROM, 
AE D I AGRA 
P SUB T , 
N TILDE . 
POUND STERLING 
CENT , . 
TILDE 
A TILDE 



DE 



R) 
NNO" 



" BE 



YMBOL TABL 
MUNI CAT I ON 



TA 



D 



Sl : 



A 



LAYIi 



:d 



LM-5 
J.i-l-6 
Ul-7 

i-ie 

It? 

1. 50 

!. 5 1 
1.52 
153 
15M- 



I. D < 

1.58 
15? 
1.60 
1.6:1. 
1.62 
1.63 
i.6'-l- 
1.65 
i.66 
167 
1.68 
1.6? 
1.70 
1.71 
1.72 
1.73 
L7M- 
1.75 
1.76 
1.77 
1.78 
1.7? 
1.80 
1.81 
1.82 
1.83 
I. SM- 
IL 8 5 
1.86 



Note: The remaining elements (187-256) are unused. 
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Appendix D. 5100 APL Compatibility with IBM APLSV 



The 5100 APL system differs from the IBM APLSV system primarily because the 
5100 is a single user system with different input/output devices and it has display 
screen output rather than typewriter output. The differences are as follows: 

• Turning power on signs the user on; therefore, no sign-on or ID number is 
required. 

• The 5100 active workspace is generally smaller than APLSV active workspace. 
It is further limited by the shared variable processor which uses it for input/ 
output buffers and work areas. 

• The default number of symbols is 125 instead of 256, which increases the avail- 
able workspace for most users. 

• The library number that appears in system commands has been redefined to a 
device/file number. It is a 1- to 5-digit number that specifies the device and 
file number where a workspace is to be )SAVE'd or )LOAD'ed. If the number 
is less than 4 digits, it is only the file number; device 1 is assumed; otherwise, 
the high-order 1 or 2 digits is the device number. 

• The )LOAD, )COPY, )PCOPY commands require the library (device/file) num- 
ber and workspace ID parameters. The (DROP command requires the library 
(device/file) number and if the specified file is a stored workspace file, the 
workspace ID parameters. These requirements protect the user from inadver- 
tently destroying his or her saved workspaces. 

• The following commands are not supported because they apply only to multi- 
terminal systems and remote systems: 

)OFF; (OFF HOLD; (CONTINUE HOLD; (PORTS; (MSGN; (MSG; (OPRN; 
(OPR; all special system operator commands 

• The following commands are not supported because the function is not 
supported: 

(GROUP; (GRPS; (GRP 

• The following commands are not supported: 

(ORIGIN; (WIDTH; (DIGITS 
They are available with the system variables DIO, DPW, and DPP. respectively. 
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• The following commands have been added to support the 5100 processor and 
its input/output devices: 

(MARK - To format tape files 

)OUTSEL - To specify which transactions are to be printed 

(REWIND - To rewind the tape unit 

)MODE - To select communications mode 

)PATCH — To load an IMF or Tape Recovery program into storage 

from an IBM-supplied tape 

• The (CONTINUE command has been changed to save workspaces with sus- 
pended functions. The parameters are the same as (SAVE but the stored work- 
space cannot be (COPY'ed, or (LOAD'ed into a 5100 with a smaller active 
workspace. 

• Since the 5100 system is not in a communications environment, the RESEND 
message will not occur. 

• (SAVE and (LOAD have to be implemented with only one workspace area 
(no spare); therefore, the following error messages have been added: 

1. Function name [statement number] LINE TOO LONG - Cannot save 
functions with statements greater than 115 characters. 

2. WS TOO BIG - Workspace is too big to fit in the active workspace. 

3. NOT WITH SUSPENDED FUNCTION - Only the (CONTINUE command 
will work to write the workspace to tape. 

• For diagnostic reasons, occurrence of SYSTEM ERROR does not clear the 
workspace. The following message occurs when attempting anything other than 
(CLEAR after a system error: 

NOT WITH SYSTEM ERROR 

• Saved workspaces are not time-stamped and dated because that information is 
not available in this system; therefore, the following messages now occur after 
library operations: 

COPIED device/file wsid 

LOADED device/file wsid 

SAVED device/file wsid 

CONTINUED device/file wsid 

DROPPED device/file wsid 
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• The (LIB command does more than list the saved workspaces. It lists all the 
files on the specified device. The response, therefore, contains more informa- 
tion (see (LIB command in Chapter 2). 

• The following system messages have been added for the new system commands 
and input/output operations: 

ALREADY MARKED 

DEVICE NOT OPEN 

DEVICE TABLE FULL 

ERROR eee d 

EXCEEDED MAXIMUM RECORD LENGTH 

INVALID DATATYPE 

INVALID DEVICE 

INVALID DEVICE NUMBER 

INVALID FILE 

INVALID FILE NUMBER 

INVALID OPERATION 

INVALID PARAMETER 

MARKED bn 

NOT WITH OPEN DEVICE 

• The shared variable processor on the 5100 is designed to provide an interface 
between only one APL user and one I/O processor. Thus, only one processor 
number is supported (1). 

The response to QSVO is 2, since, if it is a valid share, it is always accepted 
before the APL user regains control. (If an unsupported processor is specified, 
the response is 1.) 

The response to QSVR is the same as the response to QSVO. 

Being strictly a sequential machine, the only mode of interaction is reversing 
half-duplex; that is, the I/O processor always responds to each action by the 
APL user. Therefore, the access control vector (QSVC) is always 1111. 

Since there are never any outstanding offers, QSVQ always returns an empty 
vector. 

• This is a single user system without an internal clock; therefore, the following 
system variables and functions are not supported: 

□TS - Time stamp 

[]AI - Accounting information 

[JIT - Terminal type 

DUL - User list 

DDL - Delay 

• The I-beam functions have been replaced with system variables or system func- 
tions and are not supported. 

• Catenation using semicolons has been replaced by format, but it is still supported 
on the 5100. 
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• Data can be exchanged between APL and BASIC or other systems via commun- 
ications; therefore, the following characters have been added to the APL char- 
acter set: 

$, #, @, &, "-. %. " 

• The display screen is 64 characters wide; therefore, the initial values for []PW 
and DPP system variables are 64 and 5 instead of 120 and 10. 

If the print width is altered to something greater than 64, any output that ex- 
ceeds 64 characters is wrapped to another line on the display screen. 

• Bare (Q) output followed by bare (H) input yields a different reply. For 
APLSV, the H input is prefixed by the same number of blanks as the previous 
H output. For 5100 APL, the input is prefixed by the previous H output. 
(See Chapter 6 for more information on bare output followed by bare input.) 

• The display screen provides the ability to edit lines of data directly; therefore, 
the following changes were made to function definition: 

[NQ] — Now displays line N in the display screen lines 1 and for 

editing. 

[NQM] - Has the same result as [NQ]; the M is erased when execute is 
pressed. 

[AN] — Allows line N to be deleted. N must be a single line number. 

The use of the ATTN key to delete a line works, but only in function de- 
finition mode, not while entering function definition mode. 

To prevent problems when displaying or editing statements in a user-defined 
function, the print width (QPW) is automatically set to 390 when the 5100 
is in function definition mode. The print width automatically returns to its 
previous setting when the function definition is closed. 

There is only limited editing space; therefore, function statements that are 
greater than 115 characters cannot be edited, and the message 
LINE TOO LONG is displayed. 

• The 5100 will insert a quote if an uneven number of quotes is entered. 
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Glossary 



IBM is grateful to the American National Standards 
Institute (ANSI) for permission to reprint its definitions 
from the American National Standard Vocabulary for 
Information Processing (Copyright © 1970 by American 
National Standards Institute, Incorporated), which was 
prepared by Subcommittee X3K5 on Terminology and 
Glossary of the American National Standards Committee 
X3. 

ANSI definitions are identified by an asterisk. An asterisk 
to the right of the term indicates that the entire entry is 
reprinted from the American National Standard Vocabulary 
for Information Processing; where definitions from other 
sources are included in the entry, ANSI definitions are iden- 
tified by an asterisk to the right of the item number. 



bare output: To display output without the cursor return- 
ing to the next line. 

branch instruction: An instruction that modifies the nor- 
mal order of execution indicated by the statement mem- 
bers. Branch instructions always begin with a -* (branch 
arrow). 

branching: Modifying the normal order of execution indi- 
cated by the statement numbers. 

built-in function: See primitive function. 

byte: A unit of storage. For example, a character takes 
one byte of storage. 



active referent: The usage of a name that was most recently 
localized, or the global usage if the name is not localized. 



active workspace: A part of internal storage where data and 
user-defined functions are stored and calculations are 
performed. 

ADD operation: Using a shared variable to add informa- 
tion to an existing data file. 

alphameric keys: The keys on the left side of the keyboard 
that are arranged similar to a typewriter keyboard. 



character constant: Characters that do not represent num- 
bers, variables, or functions. Character constants are en- 
closed in single quotes when they are entered (except for 
Qinput); however, the single quotes do not appear when 
the character constants are displayed. 

command keyword: The name of a system command in- 
cluding the right parenthesis. For example, the command 
keyword for the )MARK command is )MARK. 



APL internal data format: See internal data format. 



arguments: Data supplied to APL functions. 



comment: An instruction or statement that is not to be 
executed. A comment is indicated by a a as the first 
character. 



array: A collection of data that can range from a single 
item to a multidimensional data configuration. Each ele- 
ment of an array must be the same type as the other ele- 
ments (all characters, all numeric, or all logical). 



assign: To use the 
name with a value. 



(assignment arrow) to associate a 



available storage: The number of unused 1024-byte blocks 
of storage in a file on tape. 



conditional branch: A branch that is taken only when a 
certain condition is true. 

coordinate: A subset of data elements in an array. For 
example, a matrix has a row coordinate and a column 
coordinate. 

cursor: The flashing character on the display that indicates 
where the next input from the keyboard will be displayed. 
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data file: A file on tape (file type 01, 02, or 08) where 
data was stored using a shared variable. 

defective record: A 51 2-byte block of storage on tape that 
cannot be read. 

device/file number: Specifies the tape unit and file to be 
used when doing tape input or output operations. 

dual-language machine: A 5100 that can execute either 
APL or BASIC statements. 

dyadic functions: Functions that require two arguments 
(a right and a left argument). 



file number: The files on tape are sequentially numbered 
starting from one. 

file type: Identifies the type of data stored in a file. 

function body: Consists of the statements within a user- 
defined function. These statements determine the opera- 
tion(s) performed by the function. 

function definition: Defining a new function (a user- 
defined function) to solve a problem. 

function definition mode: The mode that is used when 
defining or editing user-defined functions. The V symbol 
is used to change the mode of operation. Contrast with 
execution mode. 



editing: Modifying an instruction or statement that already 
exists. 



function header: Defines the function name, number of 
arguments, local names, and whether or not the function 
will have an explicit result. 



element: The single item of data in an array. 



empty array: A variable that has a zero in its shape vector. 
The array has no (zero) elements. 

execute: To press the EXECUTE key to process data on 
the input line. 

execution: The processing of data. 

execution mode: The mode that is operative when state- 
ments or functions are executed. Contrast with function 
definition mode. 

explicit result: The result of a function that can be used in 
further calculations. The function must contain a result 
variable if it is to have an explicit result. 



file: A specified amount of storage on tape. The tape is 
formatted into files by using the (MARK command. 

file ID: The name of a file on tape. If the file contains a 
stored workspace, the file ID is the same as the stored 
workspace ID. 



general interchange data file: The data in the file is in the 
general interchange format. 

general interchange data format: The data consists of all 
character scalars or vectors. 

global names: The value associated with these names can 
be used within or outside of a user-defined function unless 
the name has been made local to a user-defined function 
that is executing, suspended, or pendent. Contrast with 
local names. 



identity element: The value that generates a result equal 
to the other argument. 

IN operation: Using a shared variable to write information 
into a data file. 

index entry [I] : (1 ) A value or values enclosed in brackets 
that select(s) certain elements from an array. (2) A value 
enclosed in brackets that determines the coordinate of an 
array to be acted on by a primitive mixed function. 
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index origin: Either or 1 and is the lowest value of an index. 
The index origin is set to 1 in a clear workspace and can be 
changed by using the □ 10 system variable. 

input: Information entered from the keyboard or read 
from tape using a shared variable. 



library: A tape cartridge where data is stored for future 
use. 

local name: A name that is contained in the function 
header and has a value only during the execution of that 
user-defined function. 



input line: Consists of the 128 positions on lines and 1 
of the display screen. Any information on the input line 
will be processed when the EXECUTE key is pressed. 



locked function: A function that cannot be revised or dis- 
played in any way. The opening or closing V was over- 
struck with a ~ . 



instruction: A function or series of functions to be 
performed. 



logical data: (Boolean data) Data that consists of all ones 
and zeros. 



integer: A whole number. 



interactive function: A user-defined function that requests 
input from the keyboard as it executes. 



matrix: A collection of data arranged in rows and columns. 



interchange data file: The data in the file is in the inter- 
change data format. 



mixed function: The results of mixed functions may 
differ from the arguments in both rank and shape. 



interchange data format: The data consists of all character 
scalars or vectors. 



monadic functions: Functions that require one argument. 
The argument must be to the right of the function symbol. 



internal data file: The data in the file is in the internal 
data format. 



multidimensional array: An array that has two or more 
coordinates. 



internal data format: The format in which the data is stored 
in the 5100. 



n-rank array: An array that has more than two coordin- 
ates (a rank of more than 2). 



keyword: See command keyword. 



niladic function: A user-defined function that does not 
require any arguments. 



labels: Names that are placed on statements in a user- 
defined function for use in branching. 



numeric keys: The keys on the right side of the keyboard 
that are arranged similar to a calculator keyboard. 



latent referent: The usage of a name that has been made 
local to a more recently called function. The value for that 
usage cannot be used or set. 

length: (1) The length of a vector is the number of ele- 
ments in the vector. (2) The length of a coordinate of 
other arrays is the number of items specified by that coor- 
dinate. For example, a matrix has a row coordinate with 
the length of 2, therefore, the matrix has two rows. 



object: A user-defined function or variable name. 

operators: Apply one or more dyadic primitive scalar func- 
tions to arrays. 

OUT operation: Using a shared variable to read informa- 
tion from a data file. 
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output: The results of statements processed by the 51 00. 

overstruck character: A character formed by entering one 
character, backspacing, and entering another character. 
Only certain combinations of characters can form over- 
struck characters. 



parameter: (1) Information needed by a system command 
(such as device/file number). (2) Information required to 
open a data file or specify printer output. 

password: A sequence of characters that must be matched 
before the contents of a stored workspace can be loaded or 
copied into the active workspace. 

pendent function: Any function in the state indicator list 
that is not a suspended function. 

physical record: A 512-byte block of storage on tape. 

plane: The coordinates of an n-rank array other than the 
rows and columns. 

primitive function: The functions that are part of the APL 
language (such as , + - * x). 

PRT operation: Using a shared variable to output data on 
the printer. 



scalar: A single data item that does not have a dimension 
(pp=0). 

scalar function: The results of the scalar functions are the 
same shape as the arguments. 

scale: An integer representing the power of ten when 
scaled representation is used. 

scaled representation: Stating a value in a convenient 
range and multiplying it by the appropriate power of ten. 

scroll: Moving the information on the display screen up or 
down. 

shape: The length of each coordinate of an array. 

shared variables: A variable shared by the active workspace 
and the tape or printer. Used to transfer data during IN, 
OUT, ADD, or PRT operations. 

significant digit: * A digit that is needed for a certain pur- 
pose, particularly one that must be kept to preserve a spe- 
cific accuracy or precision. 

single-element array: A single data item that has at least 
one coordinate. For example, a matrix with one row and 
one column. 

state indicator: Contains information on the progress 
(statement number of the statement being executed) of 
user-defined function execution. Can be displayed to show 
all suspended and pendent user-defined functions. 



rank: The number of coordinates of an array (p p ). 

record: Data assigned to a shared variable. 

result variable: A variable to the left of the assignment 
arrow in the function header where the results of the func- 
tion are temporarily stored for use in further calculations. 

return code: Assigned to a shared variable after a PRT, 
OUT, or ADD operation. This code indicates whether or 
not the operation was successful. 



statement: A numbered instruction within a user-defined 
function. 

statement number: The number of a statement within a 
user-defined function. 

stop control (SA): Stopping execution of a user-defined 
function before the execution of a specified statement. 

stop vector: Specifies the statements when using stop 
control. 

stored workspace: The contents of the active workspace 
stored on tape. 
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suspended: See suspended function. 

suspended execution: See suspended function. 

suspended function: Execution has stopped because of an 
error condition, ATTN being pressed, or stop control being 
used. 

system commands: Are used to manage the active workspace 
) and tape or printer operations. 

system functions: Are used to change or provide informa- 
tion about the system. 

system operation: Processing input data. 

) 

7 system variable: Provides controls for the system and infor- 
mation about the system to the user. 



user-defined functions: New functions defined using the 
primitive functions. See function definition mode. 



trace control (TA): Displaying the results of specified 
statements during the execution of a user-defined function. 

trace vector: Specifies the statements when using trace 
control. 



variable name: A name associated with the value of a 
variable. 

variables: Data stored in the 5100. 

vector: An array with one dimension (p p = 1 ). 



workspace: See active workspace. 

workspace available: The amount of unused storage 
(number of unused bytes) in the active workspace. 

workspace ID: A name given to the contents of the active 
workspace. A stored workspace has the same name as the 
active workspace when the contents of the active work- 
space were written to tape. 



transferring data: Using a shared variable to write data to 
tape, read data from tape, or output data to the printer. 
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(CLEAR command 11,14 

(CONTINUE command 12,14,19,26,173 

(COPY command 11,14,25 

(DROP command 12,16 

(ERASE command 11,16 

(FNS command 12,17 

(LIB command 12,17 

(LOAD command 11,19 

(MARK command 12,19 

(MODE command 1 2, 21 

(OUTSEL command 12,21,164 

(PATCH command 1 2, 22 

(PCOPY command 1 1 , 1 4, 25 

(REWIND command 12,26 

(SAVE command 12,14,19,25,173 

(SI command 1 2, 27, 1 55 

(SIV command 12,27,143 

(SYMBOLS command 1 1 , 28 

) VARS command 1 2, 28 

(WSID command 11,15,19,27,29 

[l] index entry 75 

[D] 148 

[Dn] 148 

[nQ] 148 

[An] 149 

D: 145 

input 145 

QAV system variable 126 

OCT system variable 1 24 

QCR function 128 

QEX function 132 

QFX function 129 

Q 10 system variable 1 25 

D LC system variable 1 26 

Q LX system variable 1 26 

QNC function 133 

QNL function 132 

QPP system variable 1 25 

PW system variable 1 26 

Q R L system variable 1 26 

QSVO function 158 

nsVR function 164 

Q WA system variable 1 26 

input 145 

□ output 146 

^function 105 

'e' raised to a power 54 

V symbol 134 

->0 138 

§ character 145 

* 155 

+ function 44 

- function 45 

x function 46 

f function 48 

T function 50 

[function 51 



I function 
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* function 


54 


©function 


55 


O function 
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1 function 
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c|) function 


89 


§ function 
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X function 
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T function 
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e function 
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l function 
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T function 
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/ operator 
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, operator 
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abandoned execution 147 
absolute value 52 
active referent 132, 142 
active workspace 1 1 
adapter for TV monitors 1 
ADD operation 160,163 
add statements 148 
alphameric keys 6 
amount of unused space 126 
and function A 62 
APL character set 200 
APL characters 126 
APL command keyword 7 
APL internal data format 161 
APL language symbols 6 
APL operators 1 1 1 
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APL shared variable 21,158 
arguments 43 
arranging output 146 
arrays 32 

assignment arrow ■«- 120 
atomic vector □ AV 1 26, 201 
attention key 6, 1 55 
automatically execute expression 
auxiliary tape unit 1 
available storage 18 
available workspace 126 



backspace key 8 

bare output 146 

bare output prefix 146 

base value 96 

BASIC/APL switch 4 

binomial function I 60 

branch arrow -*■ 1 20, 1 37 

branch instructions 139 

branch to a specific statement number 1 39 

branch to zero 1 38 

branching 137 

brightness control 10 

built-in functions 43 

bytes of storage 1 72 



canonical representation QCR 128 

catenate function , 37 ( 77 

catenation 37 

ceiling function f 50 

change an array to a character array 108 

change the device/file number and workspace ID 29 

change the number of symbols allowed 28 

change the sign 45 

character constant 31,172 

character set 200 

checkout procedure 

APL 191 

printer 199 

tape unit 197 
circular function O 56 
clear suspended functions 1 57, 1 72 
clear workspace attributes 14 
clearing suspended functions 157 
close data files 164 
coefficient matrices 1 05 
combinations of B 60 
command key 7 
command keyword 7 

commands that control the active workspace 1 1 
commands that control the library (tape) 1 2 
commands that provide information about the system 1 2 
commands, system 1 1 



comment a 1 21 , 1 35 

communications adapter 1 

communications mode 21 

communications program 21 

comparison tolerance []CT 124 

compress function / 81 

conditional branch 1 38 

conjugate function + 44 

consecutive integers 88 

conserve storage 1 72 

coordinate 33, 75 

copy display 9 

copy display key 6 

copy objects into the active workspace 1 5, 25 

creating a new coordinate 79 

creating lists 39 

cursor 1 , 7 

cursor return character (X'9C) 163 



dark characters 5 

data file 159,172 

data representation 30 

data security 170 

data to be printed 21 

deal function ? 95 

decode function 1 96 

defective records 18 

defining a function 134 

del V symbol 134 

delete characters 8 

delete statements 148 

device/file number 13,160 

display characters in alternate positions 5 

display device/file number and workspace ID 29 

display file headers 1 7 

display local names 142 

display messages 144 

display names of suspended functions 27 

DISPLAY REGISTERS switch 5 

display screen 1 

display screen control 5 

display the existing shared variable names 159 

display the number of symbols allowed 28 

display the variable names 28 

display user-defined function names 1 7 

display value of a variable 30 

displaying a user-defined function 148 

displaying more than one value on the same line 146 

divide function v 48 

drop elements from an argument 87 

drop function + 87 

dual-language machines 4 

dyadic 43 

dyadic functions 135 

dyadic mixed functions 73 
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edit statements 1 48 

editing statements 1 34 

empty array 36, 39 

empty vector 1 38 

encode function J 99 

end of block character (X'FF') 163 

entering system commands 13 

equal to function = 68 

erase information 6 

erase objects from the active workspace 1 6, 1 32 

error message 155, 180 

error message displayed 165 

escape from Q i nput 1 45 

escape from Q input 145 

establish a variable to be shared 158 

examples of function editing 1 51 

execute function i> 1 07 

execute key 7 

executes the argument 107 

execution mode 1 34 

expand arguments 82 

expand function \ 82 

explicit result 135 

exponential function * 54 

expunge 1 32 



factorial function I 59 

fall through 138 

file header 11,17 

file ID 17 

file number 17 

file size formula 20 

file type 1 7 

files 11 

fix function []FX 129 

flashing character 1 

floor function |_ 51 

form a matrix into a function 1 29 

format 1 08 

format a function into a matrix 1 28 

format function V 108, 146 

formats the tape 1 9 

formatted tape 1 1 

forms an array 76 

forms thickness 177 

formula for file size 20 

forward space key 7 

function definition 1 34 

function definition mode 134 

function definition, reopen 148 

function editing 147 

function header 1 35, 1 39 

functions, primitive 32 



gamma function 59 

general interchange data format 161 

generalized transpose function § 94 

generate empty arrays 36 

generating arrays 33 

global names 1 39 

global variable 140 

grade down function f 84 

grade up function fa 83 

greater than function > 67 

greater than or equal to function > 70 



hold key 6, 9 



ID = (file ID) 160 
identity elements 1 1 1 
IMF 22 

I N operation 1 60, 1 63 
index entry 

decimal 79 

integer 78 
index entry [l] 75 
index entry assumed 75 
index generator function X 88 
index of function i 88 
index of specified elements 88 
index origin QlO 125 
index values 

in ascending order 83 

in descending order 84 
indexing 32, 39 
indicate the sign 46 
indicator lights 

process check 9 

in process 9 
indices 34 
information printed 9 
inner product operator 113 
input 1 
input line 6 
input, processed 7 
insert characters 8 
insert forms, printer 1 75 
insert statements 148 
installation procedure 

auxiliary tape unit 196 

printer 198 

5100 191 
integers 1 72 
interactive functions 144 
interchange data format 1 61 , 1 63 
interchanges the coordinates of the argument 94 
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internal checks 4 
internal data format 161 
internal machine fix (IMF) 22 
interrupted function 155 
invert a nonsingular matrix 105 



models 171 

monadic 43 

monadic functions 1 35 

monadic mixed functions 73 

MSG=OFF 161,165 

multiplier 31 



join two arrays 37, 78 
join two items 37, 78 



keyboard 6 
keys 6 
keyword 7 



labels 137 

laminate function , 77, 79 

language in operation 4 

larger of two arguments 50 

last valid statement number 1 49 

latent expression Q LX 1 26 

latent referent 1 42 

least squares solution 106 

length of the output line 1 26 

less than function < 69 

less than or equal to function < 71 

library 11 

light characters 5 

line counter []LC 126 

load a stored workspace into the active workspace 

local function 131 

local names 27, 139 

local names, display 142 

local objects 132,172 

local user-defined functions 143 

local variable 139 

locked functions 147 

log of B to base 'e' 55 

log of B to base A 55 

logarithm function © 55 

logical data 32,172 

L32 64 R32 switch 5 
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N-rank array 34 

name classification QNC 133 

name list []NL 132 

names of the objects in the active workspace 1 32 

nand function A 65 

natural log function ® 55 

negation function - 45 

negative sign 30 

new coordinate, creating 79 

next larger integer 50 

next smaller integer 51 

niladic functions 135 

nonsingular 105 

nor function V 66 

not equal to function * 72 

not function ~ 64 

numbers 30 

decimal 172 

whole 172 
numeric keys 6 



objects 12 
opening a file 159 
operators 43, 111 
or function V 63 
order of execution 1 22 



other commands that control the system 

OUT operation 160, 163 

outer product operator o , 116 

output 1 

output line, length 126 

overstruck characters 200 

overview, system 1 1 
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magnitude function | 52 
mark a file unused 16 
matrices 32 

matrix divide function g| 105 
matrix inverse function @ 105 
maximum function f* 50 
membership function g 104 
minimum function |_ 52 
minus function - 46 
mixed functions 43 



parameters for system commands 

parentheses ( ) 122 

pendent functions 156 

physical record 163 

pi times B 56 

pi times function O 56 

plane 75 

planning information 188 

plus function + 44 

portable computer 1 

positioning information 7 

positioning the cursor 7 

power function * 54 
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power on procedure 4 

power ON/OFF switch 4 

power on/off, printer 1 74 

precision 1 08 

primitive functions 32, 43 

primitive mixed functions 73 

primitive scalar functions 43 

print data 160 

print information 9 

print input and output 21 

print output 21 

print width QPW 126 

printer 21, 174 

printer characteristics 1 74 

printer output 158 

printer power on/off switch 1 74 

printing precision QPP 125 

process input 7 

processing 6 

processing input 10 

product of A times B 47 

product of all positive integers 59 

protect objects 25 

protecting sensitive data 1 70 

PRT operation 160,164 

pseudoinverse of a rectangular matrix 105 



quad Q 120 
quad input 145 
quad quote 121 
quad quote input 145 
quotient of A divided by B 48 



radians 56 

raise A to the B power 54 

random integer 61 

random link []RL 126 

random numbers 61,95,126 

rank 34,42 

ravel function , 77 

reciprocal function v 48 

reduction operator / 111 

remainder 53 

remove bare output 147 

removing sensitive data 1 70 

reopening function definition 148, 150 

replace ribbon 1 77 

replace statements 1 48 

representation of an argument in a specified number system 

representation of the class of names 1 33 

request input 144 

reshape function p 33, 76 

residue function | 53 

restart procedure 4 

RESTART switch 5, 9 

restart system operation 4 
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result variable 135 

resume execution 1 55 

retract shared variable 16, 1 64 

retract the variable name being shared 164 

return codes 1 62 

REVERSE DISPLAY switch 5 

reverse function (j> 89 

reverses the coordinates of the argument 93 

reverses the elements of the argument 89 

revising a user-defined function 148 

rewind the tape 26 

ribbon, printer 177 

roll function ? 61 

rotate function (f> 91 

rotates the elements of the argument 91 



scalar 32 

scalar functions 43 

scale 31 

scaled representation 31 

scan operator \ 118 

scroll 9 

scroll down 9 

scroll up 9 

select elements from arguments 81 

sensitive data 1 70 

shape function p 75 

shape of an array 34 

shape of the argument 75 

shared variable 158 

shift key 6 

significant digits displayed 1 25 

signum function x 46 

SIV display 143 

size of files 18 

smaller of two arguments 52 

solution to one or more sets of linear equations 105 

sort vector 

in ascending order 83 

in descending order 84 
special symbols 120 
specify order of execution 1 22 
specifying printer output 1 2, 21 , 1 64 
state indicator 27,143,155 
state indicator with local names 143 
stop control 147,154 
stop control vector 1 55 
stop processing 6 
stop system operation 6 
stop vector 1 54 
storage capacity 171 
storage considerations 1 72 
store data 1 1 , 30 
structure 76 
subtract 46 

sum of two arguments 44 
suspended function execution 155 
suspended functions 155 
suspended functions, cleared 157 
suspension 155 
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switches 

BASIC/APL 4 
DISPLAY REGISTERS 5 
L32 64 R32 5 

POWER ON/OFF 4 
RESTART 5 

REVERSE DISPLAY 5 
symbols 6 
system command description 

commands that control the active workspace 1 1 

commands that control the library 1 2 

commands that provide information about the system 

other commands that control the system 1 2 
system command parameters 

brackets 1 3 

device/file number 13 

object 1 3 

password 1 3 

workspace ID 13 
system commands 

control the active workspace 1 1 

control the library 12 

provide information about the system 1 2 

other commands 12 
system commands, entering 13 
system commands, parameters 13 
system functions 128 
system malfunction 9 
system operation 4, 9 
system overview 1 1 
system ready 4 
system variables 123 
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tape cartridge 

care 1 73 

handling 173 
tape error recovery program 22, 25 
tape input and output 1 58 
tape unit, auxiliary 1,13 
terminate printer output 164 
times function x 47 
trace control function 147,152 
TRACE user-defined function 152 
trace vector 1 52 
transfer data from tape 160, 163 
transfer data to tape 1 60, 1 63 
transferring data 163 
transpose function § 93 
trigonometric functions 56 
TV monitor adapter 1 
TYPE= 161 



unused space 1 26 
unused storage 18 
user-defined function, revising 
user-defined functions 1 34 
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value expressed in a specified number system 
variable name 30, 1 72 
variables 30 
vectors 32 
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take elements from an argument 
take function + 86 
tape 11 
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workspace a va i lable Q WA 1 26 

wrap around 7 

write the active workspace to tape 1 4, 26 

write the contents of the active workspace to tape 
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